home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 01 - 1984 & 1985 / 01.02 Jan 85.sit / 01.02 Jan 85 / Forth Vol. 1 No. 2 / Jan
MacBinary  |  1984-11-30  |  20.3 KB  |  [WORD/MACA]
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
100% dexvert Macintosh Word Document (document/wordMac) idMeta Supported
10% dexvert MacBinary (archive/macBinary) fallback Supported
100% file MacBinary II, inited, Fri Nov 30 03:05:04 1984, modified Fri Nov 30 03:05:04 1984, creator MacWrite, type MacWrite word processor, 19652 bytes "Jan" dBase IV DBT, blocks size 0, block length 512, next free block index 1376191232, next free block 23757, next used block 105473, at 0x4d44 776 bytes resource dBase IV DBT, blocks size 0, block length 512, next free block index 1376191232, next free block 23757, next used block 105473 default (weak)
99% file data default
98% TrID MacBinary 2 default (weak)
1% TrID Sybase iAnywhere database files default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[WORD]
macFileCreator[MACA]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 03 4a 61 6e 00 00 00 | 00 00 00 00 00 00 00 00 |..Jan...|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 57 4f 52 44 4d 41 43 | 41 01 00 00 00 00 00 00 |.WORDMAC|A.......|
|00000050| 00 00 00 00 00 4c c4 00 | 00 03 08 98 33 3c b0 98 |.....L..|....3<..|
|00000060| 33 3c b0 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |3<......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 cf fb 00 00 |........|........|
|00000080| 00 03 07 52 00 c5 00 03 | 00 04 00 00 00 ff ff 00 |...R....|........|
|00000090| 00 00 00 01 00 02 00 00 | 00 48 00 50 00 00 00 00 |........|.H.P....|
|000000a0| 02 f0 02 80 ff dc ff ec | 02 f4 02 94 01 02 05 28 |........|.......(|
|000000b0| 03 fc 00 01 00 00 00 48 | 00 50 00 00 00 00 02 f0 |.......H|.P......|
|000000c0| 02 80 00 50 00 20 02 80 | 0c 80 00 18 00 01 01 01 |...P. ..|........|
|000000d0| 00 00 00 01 27 0f 00 01 | 01 01 00 00 00 00 00 00 |....'...|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 90 00 1d |........|........|
|00000110| 00 90 00 1d ff d4 00 00 | ff f2 00 1e ff f2 00 ec |........|........|
|00000120| ff f2 01 ba ff ff ff ff | ff 00 09 00 00 04 00 02 |........|........|
|00000130| 00 00 00 02 00 00 00 00 | 00 00 ff f2 00 1e ff f2 |........|........|
|00000140| 00 ec ff f2 01 ba ff ff | ff ff 00 00 ff ff ff ff |........|........|
|00000150| 00 03 00 00 00 03 00 00 | 00 00 00 00 ff f2 00 1e |........|........|
|00000160| ff f2 00 ec ff f2 01 ba | ff ff ff ff 00 00 ff ff |........|........|
|00000170| ff ff 00 00 00 20 00 00 | 4d f8 00 17 00 20 00 00 |..... ..|M.... ..|
|00000180| d1 1e 00 10 00 37 00 00 | d1 56 00 10 00 47 00 00 |.....7..|.V...G..|
|00000190| cf fc 00 10 00 57 00 00 | ce 8c 00 10 00 67 00 00 |.....W..|.....g..|
|000001a0| 4e 00 00 00 00 77 00 00 | 4d 68 00 0d 00 77 00 00 |N....w..|Mh...w..|
|000001b0| cf cc 00 75 00 84 00 00 | c8 2e 00 75 00 f9 00 00 |...u....|...u....|
|000001c0| cf 1c 00 00 01 6e 00 00 | cf ac 00 10 01 6e 00 00 |.....n..|.....n..|
|000001d0| cf a4 00 10 01 7e 00 00 | d0 3c 00 00 01 8e 00 00 |.....~..|.<......|
|000001e0| cf b0 00 0d 01 8e 00 00 | c8 4e 00 ea 01 9b 00 00 |........|.N......|
|000001f0| 4e 20 00 41 02 85 00 00 | cf 98 00 75 00 2d 01 00 |N .A....|...u.-..|
|00000200| 4d 64 00 0d 00 a2 01 00 | 4d 60 00 10 00 af 01 00 |Md......|M`......|
|00000210| 4d 5c 00 0d 00 bf 01 00 | 4d 58 00 27 00 cc 01 00 |M\......|MX.'....|
|00000220| 4d 54 00 1a 00 f3 01 00 | 4d 50 00 0d 01 0d 01 00 |MT......|MP......|
|00000230| 4d 4c 00 1a 01 1a 01 00 | 4d 48 00 00 01 34 01 00 |ML......|MH...4..|
|00000240| 4d 44 00 0d 01 34 01 00 | cf c4 00 0d 01 41 01 00 |MD...4..|.....A..|
|00000250| cf b8 00 0d 01 4e 01 00 | 4d 40 00 0d 01 5b 01 00 |.....N..|M@...[..|
|00000260| 4d 3c 00 0d 01 68 01 00 | cd 68 00 0d 01 75 01 00 |M<...h..|.h...u..|
|00000270| cd 64 00 0d 01 82 01 00 | cd 60 00 0d 01 8f 01 00 |.d......|.`......|
|00000280| cd 5c 00 00 01 9c 01 00 | cd 58 00 0d 01 9c 01 00 |.\......|.X......|
|00000290| d0 40 00 1a 01 a9 01 00 | cf ec 00 00 01 c3 01 00 |.@......|........|
|000002a0| cd 54 00 0d 01 c3 01 00 | cf e8 00 10 01 d0 01 00 |.T......|........|
|000002b0| cf d0 00 00 01 e0 01 00 | cf dc 00 10 01 e0 01 00 |........|........|
|000002c0| cf f0 00 9c 01 f0 01 00 | cf b4 00 0d 02 8c 01 00 |........|........|
|000002d0| cd 50 00 41 02 99 01 00 | cd 4c 00 00 00 3a 02 00 |.P.A....|.L...:..|
|000002e0| cd 48 00 0d 00 3a 02 00 | d0 48 00 27 00 47 02 00 |.H...:..|.H.'.G..|
|000002f0| cf 94 00 00 00 6e 02 00 | cd 44 00 0d 00 6e 02 00 |.....n..|.D...n..|
|00000300| cf a8 00 1a 00 7b 02 00 | cf c0 00 5b 00 95 02 00 |.....{..|...[....|
|00000310| cd 40 00 0d 00 f0 02 00 | cd 3c 00 34 00 fd 02 00 |.@......|.<.4....|
|00000320| cd 38 00 0d 01 31 02 00 | cd 34 00 10 01 3e 02 00 |.8...1..|.4...>..|
|00000330| cd 30 00 0d 01 4e 02 00 | cd 2c 00 68 01 5b 02 00 |.0...N..|.,.h.[..|
|00000340| cd 28 00 00 01 c3 02 00 | cd 24 00 1a 01 c3 02 00 |.(......|.$......|
|00000350| cd 20 00 1a 01 dd 02 00 | d0 10 00 1a 01 f7 02 00 |. ......|........|
|00000360| cd 1c 00 0d 02 11 02 00 | cd 18 00 0d 02 1e 02 00 |........|........|
|00000370| cd 14 00 00 02 2b 02 00 | cf f4 00 0d 02 2b 02 00 |.....+..|.....+..|
|00000380| cf bc 00 68 02 38 02 00 | cf c8 00 0d 02 a0 02 00 |...h.8..|........|
|00000390| cd 10 00 00 02 ad 02 00 | ce e0 00 0d 02 ad 02 00 |........|........|
|000003a0| ce e4 00 0d 02 ba 02 00 | d0 08 00 0d 00 2d 03 00 |........|.....-..|
|000003b0| cd 0c 00 0d 00 3a 03 00 | d0 1c 00 0d 00 47 03 00 |.....:..|.....G..|
|000003c0| cd 08 00 0d 00 54 03 00 | cf e0 00 0d 00 61 03 00 |.....T..|.....a..|
|000003d0| cd 04 00 0d 00 6e 03 00 | d0 28 00 0d 00 7b 03 00 |.....n..|.(...{..|
|000003e0| cd 00 00 0d 00 88 03 00 | ce fc 00 0d 00 95 03 00 |........|........|
|000003f0| cc fc 00 0d 00 a2 03 00 | d0 24 00 00 00 af 03 00 |........|.$......|
|00000400| d0 0c 00 0d 00 af 03 00 | cc f8 00 10 00 bc 03 00 |........|........|
|00000410| d0 14 00 0d 00 cc 03 00 | cc f4 01 11 00 d9 03 00 |........|........|
|00000420| cc f0 00 27 01 ea 03 00 | cc ec 00 0d 02 11 03 00 |...'....|........|
|00000430| cc e8 00 5b 02 1e 03 00 | cc e4 00 00 02 79 03 00 |...[....|.....y..|
|00000440| cc e0 00 0d 02 79 03 00 | cf 04 00 0d 02 86 03 00 |.....y..|........|
|00000450| cf e4 00 0d 02 93 03 00 | cc dc 00 0d 02 a0 03 00 |........|........|
|00000460| cf 24 00 0d 02 ad 03 00 | cc d8 00 00 02 ba 03 00 |.$......|........|
|00000470| d0 04 00 0d 02 ba 03 00 | cf a0 00 0d 00 2d 04 00 |........|.....-..|
|00000480| d0 00 00 0d 00 3a 04 00 | cc cc 00 0d 00 47 04 00 |.....:..|.....G..|
|00000490| cc c8 00 0d 00 54 04 00 | cc c4 00 0b 00 61 04 00 |.....T..|.....a..|
|000004a0| cc c0 00 0b 00 6c 04 00 | cc bc 00 4d 00 77 04 00 |.....l..|...M.w..|
|000004b0| cc b8 00 21 00 c4 04 00 | cc b4 00 0b 00 e5 04 00 |...!....|........|
|000004c0| cc b0 00 0b 00 f0 04 00 | cc ac 00 0b 00 fb 04 00 |........|........|
|000004d0| cc a8 00 37 01 06 04 00 | cc a4 00 0b 01 3d 04 00 |...7....|.....=..|
|000004e0| cc a0 00 0b 01 48 04 00 | cc 9c 00 0b 01 53 04 00 |.....H..|.....S..|
|000004f0| cc 98 00 0b 01 5e 04 00 | cc 94 00 0b 01 69 04 00 |.....^..|.....i..|
|00000500| cc 90 00 0b 01 74 04 00 | cc 8c 00 0b 01 7f 04 00 |.....t..|........|
|00000510| cc 88 00 0b 01 8a 04 00 | cc 84 00 0b 01 95 04 00 |........|........|
|00000520| cc 80 00 0b 01 a0 04 00 | cc 7c 00 0b 01 ab 04 00 |........|.|......|
|00000530| cc 78 00 0b 01 b6 04 00 | cc 74 00 0b 01 c1 04 00 |.x......|.t......|
|00000540| cc 70 00 0b 01 cc 04 00 | cc 6c 00 0b 01 d7 04 00 |.p......|.l......|
|00000550| ce 70 00 0b 01 e2 04 00 | ce 6c 00 0b 01 ed 04 00 |.p......|.l......|
|00000560| ce 68 00 0b 01 f8 04 00 | ce 64 00 0b 02 03 04 00 |.h......|.d......|
|00000570| ce 60 00 0b 02 0e 04 00 | ce 5c 00 0b 02 19 04 00 |.`......|.\......|
|00000580| ce 58 00 0b 02 24 04 00 | ce 54 00 0b 02 2f 04 00 |.X...$..|.T.../..|
|00000590| ce 50 00 0b 02 3a 04 00 | ce 4c 00 0b 02 45 04 00 |.P...:..|.L...E..|
|000005a0| ce 48 00 0b 02 50 04 00 | ce 44 00 0b 02 5b 04 00 |.H...P..|.D...[..|
|000005b0| ce 40 00 0b 02 66 04 00 | ce 3c 00 0b 02 71 04 00 |.@...f..|.<...q..|
|000005c0| ce 38 00 0b 02 7c 04 00 | ce 34 00 0b 02 87 04 00 |.8...|..|.4......|
|000005d0| ce 30 00 0b 02 92 04 00 | ce 2c 00 0b 02 9d 04 00 |.0......|.,......|
|000005e0| ce 28 00 0b 02 a8 04 00 | ce 24 00 0b 02 b3 04 00 |.(......|.$......|
|000005f0| ce 20 00 0b 02 be 04 00 | ce 1c 00 0b 00 2b 05 00 |. ......|.....+..|
|00000600| ce 18 00 0b 00 36 05 00 | ce 14 00 0b 00 41 05 00 |.....6..|.....A..|
|00000610| ce 10 00 0b 00 4c 05 00 | ce 0c 00 0b 00 57 05 00 |.....L..|.....W..|
|00000620| ce 08 00 16 00 62 05 00 | ce 04 00 0b 00 78 05 00 |.....b..|.....x..|
|00000630| ce 00 00 0b 00 83 05 00 | cd fc 00 0b 00 8e 05 00 |........|........|
|00000640| cd f8 00 0b 00 99 05 00 | cd f4 00 0b 00 a4 05 00 |........|........|
|00000650| cd f0 00 0b 00 af 05 00 | cd ec 00 0b 00 ba 05 00 |........|........|
|00000660| cd e8 00 0b 00 c5 05 00 | cd e4 00 0b 00 d0 05 00 |........|........|
|00000670| cd e0 00 0b 00 db 05 00 | cd dc 00 0b 00 e6 05 00 |........|........|
|00000680| cd d8 00 0b 00 f1 05 00 | cd d4 00 0b 00 fc 05 00 |........|........|
|00000690| cd d0 00 0b 01 07 05 00 | cd cc 00 0b 01 12 05 00 |........|........|
|000006a0| cd c8 00 0b 01 1d 05 00 | cd c4 00 0b 01 28 05 00 |........|.....(..|
|000006b0| cd c0 00 0b 01 33 05 00 | cd bc 00 0b 01 3e 05 00 |.....3..|.....>..|
|000006c0| cd b8 00 0b 01 49 05 00 | cd b4 00 0b 01 54 05 00 |.....I..|.....T..|
|000006d0| cd b0 00 0b 01 5f 05 00 | cd ac 00 0b 01 6a 05 00 |....._..|.....j..|
|000006e0| cd a8 00 0b 01 75 05 00 | cd a4 00 0b 01 80 05 00 |.....u..|........|
|000006f0| cd a0 00 0b 01 8b 05 00 | cd 9c 00 0b 01 96 05 00 |........|........|
|00000700| cd 98 00 0b 01 a1 05 00 | cd 94 00 0b 01 ac 05 00 |........|........|
|00000710| cd 90 00 16 01 b7 05 00 | cd 8c 00 0b 01 cd 05 00 |........|........|
|00000720| cd 88 00 0b 01 d8 05 00 | cd 84 00 0b 01 e3 05 00 |........|........|
|00000730| cd 80 00 16 01 ee 05 00 | cd 7c 00 0b 02 04 05 00 |........|.|......|
|00000740| cd 78 00 0b 02 0f 05 00 | cd 74 00 0b 02 1a 05 00 |.x......|.t......|
|00000750| cf 78 00 0b 02 25 05 00 | cf 74 00 0b 02 30 05 00 |.x...%..|.t...0..|
|00000760| cf 70 00 0b 02 3b 05 00 | cf 6c 00 0b 02 46 05 00 |.p...;..|.l...F..|
|00000770| cf 68 00 0b 02 51 05 00 | cf 64 00 16 02 5c 05 00 |.h...Q..|.d...\..|
|00000780| cf 60 00 0b 02 72 05 00 | cf 5c 00 0b 02 7d 05 00 |.`...r..|.\...}..|
|00000790| cf 58 00 0b 02 88 05 00 | cf 50 00 00 00 00 00 00 |.X......|.P......|
|000007a0| cf 54 00 10 00 00 00 00 | d1 4e 00 10 00 10 00 00 |.T......|.N......|
|000007b0| cf 48 00 00 00 00 00 00 | cf 4c 00 10 00 00 00 00 |.H......|.L......|
|000007c0| d0 54 00 10 00 10 00 00 | d0 34 00 10 00 20 00 00 |.T......|.4... ..|
|000007d0| d0 68 00 00 00 22 00 50 | 01 54 01 03 00 00 00 50 |.h...".P|.T.....P|
|000007e0| 00 78 00 a0 00 c8 01 54 | 01 54 01 f9 01 f9 c8 2d |.x.....T|.T.....-|
|000007f0| 00 00 00 00 01 f9 ff ff | 00 01 00 1a 00 0c 46 6f |........|......Fo|
|00000800| 72 74 68 20 46 6f 72 75 | 6d 0d 00 06 00 00 12 00 |rth Foru|m.......|
|00000810| 00 07 00 01 17 60 00 01 | 00 12 00 03 62 79 0d 00 |.....`..|....by..|
|00000820| 00 06 00 00 0c 00 00 00 | 00 01 10 60 00 01 00 1e |........|...`....|
|00000830| 00 10 4a 6f 65 72 67 20 | 4c 61 6e 67 6f 77 73 6b |..Joerg |Langowsk|
|00000840| 69 0d 00 06 00 00 0c 00 | 00 00 00 01 10 60 00 01 |i.......|.....`..|
|00000850| 00 10 00 01 0d 01 00 06 | 00 00 0c 00 00 00 00 01 |........|........|
|00000860| 10 60 00 01 00 24 00 15 | 22 41 20 46 6f 72 74 68 |.`...$..|"A Forth|
|00000870| 20 44 65 63 6f 6d 70 69 | 6c 65 72 22 0d 22 00 06 | Decompi|ler"."..|
|00000880| 00 00 0c 00 00 00 00 01 | 10 60 00 00 00 22 00 50 |........|.`...".P|
|00000890| 01 54 03 03 00 00 00 64 | 00 78 00 a0 00 c8 01 54 |.T.....d|.x.....T|
|000008a0| 01 54 01 f9 01 f9 c8 2d | 00 00 00 00 01 f9 ff ff |.T.....-|........|
|000008b0| 00 01 00 10 00 01 0d 01 | 00 06 00 00 0a 05 00 0a |........|........|
|000008c0| 00 01 0d 60 00 01 01 5e | 01 47 45 76 65 72 79 6f |...`...^|.GEveryo|
|000008d0| 6e 65 20 6f 66 20 79 6f | 75 20 4d 61 63 20 46 6f |ne of yo|u Mac Fo|
|000008e0| 72 74 68 20 75 73 65 72 | 73 20 69 73 20 66 61 6d |rth user|s is fam|
|000008f0| 69 6c 69 61 72 20 65 6e | 6f 75 67 68 20 77 69 74 |iliar en|ough wit|
|00000900| 68 20 46 6f 72 74 68 20 | 74 6f 20 6b 6e 6f 77 20 |h Forth |to know |
|00000910| 74 68 61 74 20 69 74 20 | 69 73 20 61 20 27 74 68 |that it |is a 'th|
|00000920| 72 65 61 64 65 64 20 69 | 6e 74 65 72 70 72 65 74 |readed i|nterpret|
|00000930| 69 76 65 27 20 6c 61 6e | 67 75 61 67 65 2e 20 41 |ive' lan|guage. A|
|00000940| 20 46 6f 72 74 68 20 64 | 65 66 69 6e 69 74 69 6f | Forth d|efinitio|
|00000950| 6e 20 28 61 73 20 79 6f | 75 20 74 79 70 65 20 69 |n (as yo|u type i|
|00000960| 74 20 69 6e 74 6f 20 79 | 6f 75 72 20 6d 61 63 68 |t into y|our mach|
|00000970| 69 6e 65 29 20 63 6f 6e | 73 69 73 74 73 20 6f 66 |ine) con|sists of|
|00000980| 20 61 20 73 74 72 69 6e | 67 20 6f 66 20 6f 74 68 | a strin|g of oth|
|00000990| 65 72 2c 20 70 72 65 76 | 69 6f 75 73 6c 79 20 64 |er, prev|iously d|
|000009a0| 65 66 69 6e 65 64 20 46 | 6f 72 74 68 20 77 6f 72 |efined F|orth wor|
|000009b0| 64 73 2c 20 61 6e 64 20 | 69 73 20 63 6f 6d 70 69 |ds, and |is compi|
|000009c0| 6c 65 64 20 61 73 20 61 | 20 73 74 72 69 6e 67 20 |led as a| string |
|000009d0| 6f 66 20 61 64 64 72 65 | 73 73 65 73 20 74 68 61 |of addre|sses tha|
|000009e0| 74 20 70 6f 69 6e 74 20 | 74 6f 20 74 68 65 20 64 |t point |to the d|
|000009f0| 65 66 69 6e 69 74 69 6f | 6e 73 20 6f 66 20 74 68 |efinitio|ns of th|
|00000a00| 65 73 65 20 6f 74 68 65 | 72 20 77 6f 72 64 73 2e |ese othe|r words.|
|00000a10| 0d 2e 00 06 00 00 0a 00 | 00 0a 00 09 0d 0d 0d 0d |........|........|
|00000a20| 0d 0d 0d 0d 0d 00 00 01 | 01 54 01 3e 54 68 69 73 |........|.T.>This|
|00000a30| 20 6d 61 6b 65 73 20 66 | 6f 72 20 61 20 72 61 74 | makes f|or a rat|
|00000a40| 68 65 72 20 66 61 73 74 | 20 69 6e 74 65 72 70 72 |her fast| interpr|
|00000a50| 65 74 61 74 69 6f 6e 20 | 6f 66 20 74 68 65 20 72 |etation |of the r|
|00000a60| 65 73 75 6c 74 69 6e 67 | 20 63 6f 64 65 2e 20 48 |esulting| code. H|
|00000a70| 6f 77 65 76 65 72 2c 20 | 73 6f 6d 65 20 6f 66 20 |owever, |some of |
|00000a80| 74 68 65 20 76 65 72 79 | 20 70 72 69 6d 69 74 69 |the very| primiti|
|00000a90| 76 65 20 77 6f 72 64 73 | 20 61 6e 64 20 74 68 6f |ve words| and tho|
|00000aa0| 73 65 20 77 6f 72 64 73 | 20 77 68 6f 73 65 20 65 |se words| whose e|
|00000ab0| 78 65 63 75 74 69 6f 6e | 20 69 73 20 74 69 6d 65 |xecution| is time|
|00000ac0| 2d 63 72 69 74 69 63 61 | 6c 20 6d 61 79 20 61 6c |-critica|l may al|
|00000ad0| 73 6f 20 62 65 20 64 65 | 66 69 6e 65 64 20 69 6e |so be de|fined in|
|00000ae0| 20 6d 61 63 68 69 6e 65 | 20 6c 61 6e 67 75 61 67 | machine| languag|
|00000af0| 65 2e 20 4d 61 63 46 6f | 72 74 68 20 68 61 73 20 |e. MacFo|rth has |
|00000b00| 64 65 76 69 73 65 64 20 | 61 20 76 65 72 79 20 65 |devised |a very e|
|00000b10| 6c 65 67 61 6e 74 20 77 | 61 79 20 74 6f 20 64 69 |legant w|ay to di|
|00000b20| 73 74 69 6e 67 75 69 73 | 68 20 62 65 74 77 65 65 |stinguis|h betwee|
|00000b30| 6e 20 46 6f 72 74 68 20 | 77 6f 72 64 73 20 64 65 |n Forth |words de|
|00000b40| 66 69 6e 65 64 20 66 72 | 6f 6d 20 77 69 74 68 69 |fined fr|om withi|
|00000b50| 6e 20 46 6f 72 74 68 20 | 61 6e 64 20 6d 61 63 68 |n Forth |and mach|
|00000b60| 69 6e 65 20 63 6f 64 65 | 2e 0d 00 06 00 00 0a 00 |ine code|........|
|00000b70| 00 0a 00 09 0d 0d 0d 0d | 0d 0d 0d 0d 0d 54 00 00 |........|.....T..|
|00000b80| 00 22 00 50 01 54 01 03 | 00 00 00 50 00 78 00 a0 |.".P.T..|...P.x..|
|00000b90| 00 c8 01 54 01 54 01 f9 | 01 f9 c8 2d 00 00 00 00 |...T.T..|...-....|
|00000ba0| 01 f9 ff ff 00 01 00 10 | 00 01 0d 01 00 06 00 00 |........|........|
|00000bb0| 0c 00 00 00 00 01 10 8c | 00 01 00 2e 00 20 53 74 |........|..... St|
|00000bc0| 72 75 63 74 75 72 65 20 | 6f 66 20 61 20 46 6f 72 |ructure |of a For|
|00000bd0| 74 68 20 44 65 66 69 6e | 69 74 69 6f 6e 0d 00 06 |th Defin|ition...|
|00000be0| 00 00 0c 00 00 00 00 01 | 10 8c 00 00 00 22 00 50 |........|.....".P|
|00000bf0| 01 54 03 03 00 00 00 64 | 00 78 00 a0 00 c8 01 54 |.T.....d|.x.....T|
|00000c00| 01 54 01 f9 01 f9 c8 2d | 00 00 00 00 01 f9 ff ff |.T.....-|........|
|00000c10| 00 01 00 10 00 02 20 0d | 00 06 00 00 0a 00 00 0a |...... .|........|
|00000c20| 00 01 0d 8c 00 01 02 e0 | 02 c1 54 68 65 20 6f 62 |........|..The ob|
|00000c30| 6a 65 63 74 20 63 6f 64 | 65 20 6f 66 20 61 6e 79 |ject cod|e of any|
|00000c40| 20 46 6f 72 74 68 20 77 | 6f 72 64 2c 20 61 73 20 | Forth w|ord, as |
|00000c50| 69 74 20 69 73 20 63 6f | 6d 70 69 6c 65 64 20 69 |it is co|mpiled i|
|00000c60| 6e 74 6f 20 74 68 65 20 | 6f 62 6a 65 63 74 20 64 |nto the |object d|
|00000c70| 69 63 74 69 6f 6e 61 72 | 79 2c 20 73 74 61 72 74 |ictionar|y, start|
|00000c80| 73 20 77 69 74 68 20 61 | 74 20 6c 65 61 73 74 20 |s with a|t least |
|00000c90| 6f 6e 65 20 31 36 2d 62 | 69 74 20 77 6f 72 64 20 |one 16-b|it word |
|00000ca0| 74 68 61 74 20 69 73 20 | 61 20 6d 65 61 6e 69 6e |that is |a meanin|
|00000cb0| 67 66 75 6c 20 65 78 65 | 63 75 74 61 62 6c 65 20 |gful exe|cutable |
|00000cc0| 36 38 30 30 30 20 6d 61 | 63 68 69 6e 65 20 6c 61 |68000 ma|chine la|
|00000cd0| 6e 67 75 61 67 65 20 69 | 6e 73 74 72 75 63 74 69 |nguage i|nstructi|
|00000ce0| 6f 6e 2e 20 57 68 65 6e | 20 74 68 65 20 46 6f 72 |on. When| the For|
|00000cf0| 74 68 20 77 6f 72 64 20 | 69 73 20 65 78 65 63 75 |th word |is execu|
|00000d00| 74 65 64 2c 20 74 68 65 | 20 69 6e 74 65 72 70 72 |ted, the| interpr|
|00000d10| 65 74 65 72 20 73 69 6d | 70 6c 79 20 6a 75 6d 70 |eter sim|ply jump|
|00000d20| 73 20 74 6f 20 74 68 69 | 73 20 61 64 64 72 65 73 |s to thi|s addres|
|00000d30| 73 2e 20 46 6f 72 74 68 | 20 64 65 66 69 6e 69 74 |s. Forth| definit|
|00000d40| 69 6f 6e 73 20 28 63 6f | 6c 6f 6e 20 64 65 66 69 |ions (co|lon defi|
|00000d50| 6e 69 74 69 6f 6e 73 2c | 20 63 6f 6e 73 74 61 6e |nitions,| constan|
|00000d60| 74 73 2c 20 76 61 72 69 | 61 62 6c 65 73 29 20 6e |ts, vari|ables) n|
|00000d70| 6f 77 20 73 74 61 72 74 | 20 77 69 74 68 20 6f 6e |ow start| with on|
|00000d80| 65 20 6f 66 20 74 68 65 | 20 36 38 30 30 30 20 54 |e of the| 68000 T|
|00000d90| 52 41 50 20 69 6e 73 74 | 72 75 63 74 69 6f 6e 73 |RAP inst|ructions|
|00000da0| 20 28 24 34 45 34 58 2c | 20 77 68 65 72 65 20 58 | ($4E4X,| where X|
|00000db0| 20 63 61 6e 20 62 65 20 | 61 6e 79 74 68 69 6e 67 | can be |anything|
|00000dc0| 20 66 72 6f 6d 20 24 30 | 20 74 6f 20 24 46 29 2e | from $0| to $F).|
|00000dd0| 20 54 68 65 20 63 6f 72 | 72 65 73 70 6f 6e 64 69 | The cor|respondi|
|00000de0| 6e 67 20 74 72 61 70 20 | 76 65 63 74 6f 72 20 70 |ng trap |vector p|
|00000df0| 6f 69 6e 74 73 20 74 6f | 20 61 20 72 6f 75 74 69 |oints to| a routi|
|00000e00| 6e 65 20 77 68 69 63 68 | 20 65 2e 67 2e 20 69 6e |ne which| e.g. in|
|00000e10| 20 74 68 65 20 63 61 73 | 65 20 6f 66 20 61 20 63 | the cas|e of a c|
|00000e20| 6f 6c 6f 6e 20 64 65 66 | 69 6e 69 74 69 6f 6e 20 |olon def|inition |
|00000e30| 67 65 74 73 20 74 68 65 | 20 6e 65 78 74 20 31 36 |gets the| next 16|
|00000e40| 2d 62 69 74 20 77 6f 72 | 64 20 61 6e 64 20 69 6e |-bit wor|d and in|
|00000e50| 74 65 72 70 72 65 74 73 | 20 69 74 20 61 73 20 61 |terprets| it as a|
|00000e60| 20 46 6f 72 74 68 20 74 | 6f 6b 65 6e 20 28 63 6f | Forth t|oken (co|
|00000e70| 6e 76 65 72 74 73 20 69 | 74 20 74 6f 20 61 6e 20 |nverts i|t to an |
|00000e80| 61 64 64 72 65 73 73 20 | 61 6e 64 20 65 78 65 63 |address |and exec|
|00000e90| 75 74 65 73 20 69 74 29 | 2c 20 6f 72 20 2d 20 69 |utes it)|, or - i|
|00000ea0| 6e 20 74 68 65 20 63 61 | 73 65 20 6f 66 20 61 20 |n the ca|se of a |
|00000eb0| 76 61 72 69 61 62 6c 65 | 20 2d 20 70 75 74 73 20 |variable| - puts |
|00000ec0| 74 68 65 20 61 64 64 72 | 65 73 73 20 6f 66 20 74 |the addr|ess of t|
|00000ed0| 68 65 20 76 61 72 69 61 | 62 6c 65 20 6f 6e 20 74 |he varia|ble on t|
|00000ee0| 68 65 20 73 74 61 63 6b | 2e 20 0d 20 00 06 00 00 |he stack|. . ....|
|00000ef0| 0a 00 00 0a 00 12 0d 0d | 0d 0d 0d 0d 0d 0d 0d 0d |........|........|
|00000f00| 0d 0d 0d 0d 0d 0d 0d 0d | 00 01 00 c6 00 b4 49 66 |........|......If|
|00000f10| 20 74 68 65 20 77 6f 72 | 64 20 69 73 20 64 65 66 | the wor|d is def|
|00000f20| 69 6e 65 64 20 63 6f 6d | 70 6c 65 74 65 6c 79 20 |ined com|pletely |
|00000f30| 69 6e 20 6d 61 63 68 69 | 6e 65 20 6c 61 6e 67 75 |in machi|ne langu|
|00000f40| 61 67 65 2c 20 74 68 65 | 20 63 6f 64 65 20 69 73 |age, the| code is|
|00000f50| 20 65 78 65 63 75 74 65 | 64 20 75 6e 74 69 6c 20 | execute|d until |
|00000f60| 61 20 73 70 65 63 69 61 | 6c 20 4a 4d 50 20 69 6e |a specia|l JMP in|
|00000f70| 73 74 72 75 63 74 69 6f | 6e 20 74 72 61 6e 73 66 |structio|n transf|
|00000f80| 65 72 73 20 63 6f 6e 74 | 72 6f 6c 20 74 6f 20 74 |ers cont|rol to t|
|00000f90| 68 65 20 6e 65 78 74 20 | 68 69 67 68 65 72 20 6c |he next |higher l|
|00000fa0| 65 76 65 6c 20 28 49 27 | 6c 6c 20 64 65 73 63 72 |evel (I'|ll descr|
|00000fb0| 69 62 65 20 74 68 61 74 | 20 6c 61 74 65 72 29 2e |ibe that| later).|
|00000fc0| 20 0d 00 06 00 00 0a 00 | 00 0a 00 05 0d 0d 0d 0d | .......|........|
|00000fd0| 0d ff 00 01 01 7c 01 5a | 41 74 20 74 68 69 73 20 |.....|.Z|At this |
|00000fe0| 70 6f 69 6e 74 20 49 20 | 68 61 76 65 20 74 6f 20 |point I |have to |
|00000ff0| 63 6f 6e 66 65 73 73 20 | 74 68 61 74 20 49 20 77 |confess |that I w|
|00001000| 6f 75 6c 64 20 6e 6f 74 | 20 68 61 76 65 20 63 6f |ould not| have co|
|00001010| 6d 65 20 65 76 65 6e 20 | 74 68 69 73 20 66 61 72 |me even |this far|
|00001020| 20 69 66 20 69 74 20 68 | 61 64 20 6e 6f 74 20 62 | if it h|ad not b|
|00001030| 65 65 6e 20 66 6f 72 20 | 74 77 6f 20 65 78 63 65 |een for |two exce|
|00001040| 6c 6c 65 6e 74 20 72 6f | 75 74 69 6e 65 73 20 74 |llent ro|utines t|
|00001050| 68 61 74 20 49 20 66 6f | 75 6e 64 20 6f 6e 20 61 |hat I fo|und on a|
|00001060| 20 43 41 4c 4c 2d 41 2e | 50 2e 50 2e 4c 2e 45 2e | CALL-A.|P.P.L.E.|
|00001070| 20 70 75 62 6c 69 63 20 | 64 6f 6d 61 69 6e 20 64 | public |domain d|
|00001080| 69 73 6b 2e 20 4f 6e 65 | 20 6f 66 20 74 68 6f 73 |isk. One| of thos|
|00001090| 65 20 2d 20 61 20 46 6f | 72 74 68 20 64 65 63 6f |e - a Fo|rth deco|
|000010a0| 6d 70 69 6c 65 72 20 2d | 20 69 73 20 69 6e 63 6c |mpiler -| is incl|
|000010b0| 75 64 65 64 20 62 65 6c | 6f 77 20 73 6f 20 74 68 |uded bel|ow so th|
|000010c0| 61 74 20 79 6f 75 20 63 | 61 6e 20 65 6e 6a 6f 79 |at you c|an enjoy|
|000010d0| 20 68 61 63 6b 69 6e 67 | 20 69 6e 74 6f 20 74 68 | hacking| into th|
|000010e0| 65 20 46 6f 72 74 68 20 | 65 6e 67 69 6e 65 2c 20 |e Forth |engine, |
|000010f0| 74 68 65 20 6f 74 68 65 | 72 20 6f 6e 65 20 2d 20 |the othe|r one - |
|00001100| 61 20 64 69 73 61 73 73 | 65 6d 62 6c 65 72 20 2d |a disass|embler -|
|00001110| 20 77 61 73 20 74 6f 6f | 20 6c 6f 6e 67 20 74 6f | was too| long to|
|00001120| 20 62 65 20 70 72 69 6e | 74 65 64 20 68 65 72 65 | be prin|ted here|
|00001130| 2e 0d 00 12 00 00 0a 00 | 00 0a 00 89 0a 01 00 0a |........|........|
|00001140| 00 98 0a 00 00 0a 00 09 | 0d 0d 0d 0d 0d 0d 0d 0d |........|........|
|00001150| 0d 00 00 01 00 10 00 01 | 0d 01 00 06 00 00 0a 00 |........|........|
|00001160| 00 0a 00 01 0d 1e 00 01 | 00 1a 00 0b 41 6e 20 45 |........|....An E|
|00001170| 78 61 6d 70 6c 65 0d 65 | 00 06 00 00 0c 04 00 00 |xample.e|........|
|00001180| 00 01 10 0e 00 01 00 10 | 00 01 0d 01 00 06 00 00 |........|........|
|00001190| 0a 00 00 0a 00 01 0d 0e | 00 01 00 70 00 5f 41 64 |........|...p._Ad|
|000011a0| 6d 69 74 74 65 64 6c 79 | 2c 20 70 61 72 74 20 6f |mittedly|, part o|
|000011b0| 66 20 74 68 65 20 61 62 | 6f 76 65 20 73 6f 75 6e |f the ab|ove soun|
|000011c0| 64 73 20 61 20 62 69 74 | 20 64 72 79 20 61 6e 64 |ds a bit| dry and|
|000011d0| 20 74 68 65 6f 72 65 74 | 69 63 61 6c 2e 20 4c 65 | theoret|ical. Le|
|000011e0| 74 73 20 6c 6f 6f 6b 20 | 61 74 20 61 20 73 69 6d |ts look |at a sim|
|000011f0| 70 6c 65 20 65 78 61 6d | 70 6c 65 2e 0d 2e 00 06 |ple exam|ple.....|
|00001200| 00 00 0a 00 00 0a 00 03 | 0d 0d 0d 50 00 01 00 4c |........|...P...L|
|00001210| 00 31 41 73 73 75 6d 65 | 20 79 6f 75 20 68 61 64 |.1Assume| you had|
|00001220| 20 64 65 66 69 6e 65 64 | 20 74 68 65 20 77 6f 72 | defined| the wor|
|00001230| 64 20 54 45 53 54 20 61 | 73 20 66 6f 6c 6c 6f 77 |d TEST a|s follow|
|00001240| 73 3a 0d 3a 00 12 00 00 | 0a 00 00 0a 00 20 0a 01 |s:.:....|..... ..|
|00001250| 00 0a 00 24 0a 00 00 0a | 00 02 0d 0d 00 01 00 2c |...$....|.......,|
|00001260| 00 1d 3a 20 54 45 53 54 | 20 44 55 50 20 32 2a 20 |..: TEST| DUP 2* |
|00001270| 53 57 41 50 20 44 52 4f | 50 20 2e 20 3b 20 0d 20 |SWAP DRO|P . ; . |
|00001280| 00 06 00 00 0a 01 00 0a | 00 01 0d be 00 01 00 5a |........|.......Z|
|00001290| 00 4c 54 68 65 20 46 6f | 72 74 68 20 63 6f 6d 70 |.LThe Fo|rth comp|
|000012a0| 69 6c 65 72 20 77 69 6c | 6c 20 74 68 65 6e 20 63 |iler wil|l then c|
|000012b0| 72 65 61 74 65 20 61 20 | 6c 69 73 74 20 6f 66 20 |reate a |list of |
|000012c0| 31 36 2d 62 69 74 20 77 | 6f 72 64 73 20 74 68 61 |16-bit w|ords tha|
|000012d0| 74 20 6c 6f 6f 6b 73 20 | 6c 69 6b 65 3a 0d 00 06 |t looks |like:...|
|000012e0| 00 00 0a 00 00 0a 00 02 | 0d 0d 00 00 00 22 00 50 |........|.....".P|
|000012f0| 01 54 03 04 00 00 00 3c | 00 64 00 78 00 8c 00 a0 |.T.....<|.d.x....|
|00001300| 01 54 01 54 01 f9 c8 2d | 00 00 00 00 01 f9 ff ff |.T.T...-|........|
|00001310| 00 01 00 10 00 01 0d 01 | 00 06 00 00 0a 00 00 0a |........|........|
|00001320| 00 01 0d 52 00 01 00 32 | 00 24 09 24 34 45 34 46 |...R...2|.$.$4E4F|
|00001330| 09 09 28 74 72 61 70 20 | 66 6f 72 20 63 6f 6c 6f |..(trap |for colo|
|00001340| 6e 20 64 65 66 69 6e 69 | 74 69 6f 6e 29 0d 00 06 |n defini|tion)...|
|00001350| 00 00 0a 00 00 0a 00 01 | 0d 45 00 01 00 3c 00 22 |........|.E...<."|
|00001360| 09 24 30 34 39 38 09 09 | 28 46 6f 72 74 68 20 74 |.$0498..|(Forth t|
|00001370| 6f 6b 65 6e 20 66 6f 72 | 20 44 55 50 20 20 20 20 |oken for| DUP    |
|00001380| 29 0d 00 12 00 00 0a 00 | 00 0a 00 19 0a 01 00 0a |).......|........|
|00001390| 00 1d 0a 00 00 0a 00 01 | 0d 38 00 01 00 44 00 2a |........|.8...D.*|
|000013a0| 09 24 30 37 34 45 09 09 | 28 20 20 20 22 20 20 20 |.$074E..|(   "   |
|000013b0| 20 20 20 20 20 20 20 22 | 20 20 20 20 20 22 20 20 |       "|     "  |
|000013c0| 20 32 2a 20 20 20 20 20 | 29 0d 00 12 00 00 0a 00 | 2*     |).......|
|000013d0| 00 0a 00 21 0a 01 00 0a | 00 24 0a 00 00 0a 00 01 |...!....|.$......|
|000013e0| 0d 2b 00 01 00 42 00 27 | 09 24 30 34 39 43 09 09 |.+...B.'|.$049C..|
|000013f0| 28 20 20 20 22 20 20 20 | 20 20 20 20 20 20 20 22 |(   "   |       "|
|00001400| 20 20 20 20 20 22 20 20 | 20 53 57 41 50 29 0d 20 |     "  | SWAP). |
|00001410| 00 12 00 00 0a 00 00 0a | 00 21 0a 01 00 0a 00 25 |........|.!.....%|
|00001420| 0a 00 00 0a 00 01 0d 1e | 00 01 00 42 00 28 09 24 |........|...B.(.$|
|00001430| 30 30 45 43 09 09 28 20 | 20 20 22 20 20 20 20 20 |00EC..( |  "     |
|00001440| 20 20 20 20 20 22 20 20 | 20 20 20 22 20 20 20 44 |     "  |   "   D|
|00001450| 52 4f 50 20 29 0d 00 12 | 00 00 0a 00 00 0a 00 21 |ROP )...|.......!|
|00001460| 0a 01 00 0a 00 25 0a 00 | 00 0a 00 01 0d 11 00 01 |.....%..|........|
|00001470| 00 44 00 2a 09 24 30 45 | 42 45 09 09 28 20 20 20 |.D.*.$0E|BE..(   |
|00001480| 22 20 20 20 20 20 20 20 | 20 20 20 22 20 20 20 20 |"       |   "    |
|00001490| 20 22 20 20 20 20 2e 20 | 20 20 20 20 29 0d 00 12 | "    . |    )...|
|000014a0| 00 00 0a 00 00 0a 00 21 | 0a 01 00 0a 00 25 0a 00 |.......!|.....%..|
|000014b0| 00 0a 00 01 0d 03 00 01 | 00 46 00 2c 09 24 30 30 |........|.F.,.$00|
|000014c0| 36 30 20 20 20 20 20 20 | 28 20 20 20 22 20 20 20 |60      |(   "   |
|000014d0| 20 20 20 20 20 20 20 22 | 20 20 20 20 20 22 20 20 |       "|     "  |
|000014e0| 45 58 49 54 20 20 29 0d | 00 12 00 00 0a 00 00 0a |EXIT  ).|........|
|000014f0| 00 23 0a 01 00 0a 00 29 | 0a 00 00 0a 00 01 0d 03 |.#.....)|........|
|00001500| 00 00 00 22 00 50 01 54 | 03 03 00 00 00 64 00 78 |...".P.T|.....d.x|
|00001510| 00 a0 00 c8 01 54 01 54 | 01 f9 01 f9 c8 2d 00 00 |.....T.T|.....-..|
|00001520| 00 00 01 f9 ff ff 00 01 | 00 10 00 01 0d 01 00 06 |........|........|
|00001530| 00 00 0a 00 00 0a 00 01 | 0d bb 00 01 00 48 00 2e |........|.....H..|
|00001540| 49 6e 74 65 72 70 72 65 | 74 61 74 69 6f 6e 20 61 |Interpre|tation a|
|00001550| 6c 77 61 79 73 20 65 6e | 64 73 20 61 74 20 74 68 |lways en|ds at th|
|00001560| 65 20 45 58 49 54 20 74 | 6f 6b 65 6e 2e 0d 00 12 |e EXIT t|oken....|
|00001570| 00 00 0a 00 00 0a 00 22 | 0a 01 00 0a 00 26 0a 00 |......."|.....&..|
|00001580| 00 0a 00 02 0d 0d 00 00 | 00 22 00 50 01 54 01 03 |........|.".P.T..|
|00001590| 00 00 00 50 00 78 00 a0 | 00 c8 01 54 01 54 01 f9 |...P.x..|...T.T..|
|000015a0| 01 f9 c8 2d 00 00 00 00 | 01 f9 ff ff 00 01 00 10 |...-....|........|
|000015b0| 00 01 0d 01 00 06 00 00 | 0a 00 00 0a 00 01 0d 73 |........|.......s|
|000015c0| 00 01 00 16 00 07 54 4f | 4b 45 4e 53 0d 53 00 06 |......TO|KENS.S..|
|000015d0| 00 00 0c 00 00 00 00 01 | 10 4f 00 00 00 22 00 50 |........|.O...".P|
|000015e0| 01 54 03 03 00 00 00 64 | 00 78 00 a0 00 c8 01 54 |.T.....d|.x.....T|
|000015f0| 01 54 01 f9 01 f9 c8 2d | 00 00 00 00 01 f9 ff ff |.T.....-|........|
|00001600| 00 01 00 10 00 01 0d 01 | 00 06 00 00 0c 00 00 00 |........|........|
|00001610| 00 01 10 2b 00 01 01 dc | 01 ab 57 68 61 74 20 61 |...+....|..What a|
|00001620| 72 65 20 74 68 6f 73 65 | 20 27 74 6f 6b 65 6e 73 |re those| 'tokens|
|00001630| 27 3f 20 54 68 65 79 20 | 61 72 65 20 74 68 65 20 |'? They |are the |
|00001640| 73 74 61 72 74 69 6e 67 | 20 61 64 64 72 65 73 73 |starting| address|
|00001650| 65 73 20 6f 66 20 74 68 | 65 20 46 6f 72 74 68 20 |es of th|e Forth |
|00001660| 64 65 66 69 6e 69 74 69 | 6f 6e 73 20 74 68 61 74 |definiti|ons that|
|00001670| 20 61 72 65 20 6f 66 66 | 73 65 74 20 62 79 20 61 | are off|set by a|
|00001680| 20 63 6f 6e 73 74 61 6e | 74 20 74 68 61 74 20 69 | constan|t that i|
|00001690| 73 20 63 6f 6e 74 61 69 | 6e 65 64 20 69 6e 20 72 |s contai|ned in r|
|000016a0| 65 67 69 73 74 65 72 20 | 41 34 20 28 70 72 6f 62 |egister |A4 (prob|
|000016b0| 61 62 6c 79 20 74 6f 20 | 6d 61 6b 65 20 74 68 65 |ably to |make the|
|000016c0| 20 6f 62 6a 65 63 74 20 | 63 6f 64 65 20 72 65 6c | object |code rel|
|000016d0| 6f 63 61 74 61 62 6c 65 | 29 2e 20 54 68 65 72 65 |ocatable|). There|
|000016e0| 20 69 73 20 61 20 77 6f | 72 64 20 69 6e 20 4d 61 | is a wo|rd in Ma|
|000016f0| 63 46 6f 72 74 68 20 74 | 68 61 74 20 63 6f 6e 76 |cForth t|hat conv|
|00001700| 65 72 74 73 20 61 20 74 | 6f 6b 65 6e 20 74 6f 20 |erts a t|oken to |
|00001710| 61 6e 20 61 64 64 72 65 | 73 73 2c 20 54 4f 4b 45 |an addre|ss, TOKE|
|00001720| 4e 3e 41 44 44 52 2e 20 | 54 68 65 20 74 6f 6b 65 |N>ADDR. |The toke|
|00001730| 6e 20 6f 66 20 61 20 77 | 6f 72 64 20 69 73 20 65 |n of a w|ord is e|
|00001740| 78 74 72 61 63 74 65 64 | 20 66 72 6f 6d 20 74 68 |xtracted| from th|
|00001750| 65 20 76 6f 63 61 62 75 | 6c 61 72 79 20 62 79 20 |e vocabu|lary by |
|00001760| 74 68 65 20 46 6f 72 74 | 68 20 77 6f 72 64 2c 20 |the Fort|h word, |
|00001770| 46 49 4e 44 2e 20 54 68 | 65 72 65 66 6f 72 65 2c |FIND. Th|erefore,|
|00001780| 20 79 6f 75 20 77 69 6c | 6c 20 67 65 74 20 74 68 | you wil|l get th|
|00001790| 65 20 73 74 61 72 74 69 | 6e 67 20 61 64 64 72 65 |e starti|ng addre|
|000017a0| 73 73 20 6f 66 20 74 68 | 65 20 65 78 61 6d 70 6c |ss of th|e exampl|
|000017b0| 65 20 61 62 6f 76 65 20 | 62 79 20 65 78 65 63 75 |e above |by execu|
|000017c0| 74 69 6e 67 0d 67 00 1e | 00 00 0a 00 00 0a 01 02 |ting.g..|........|
|000017d0| 0a 01 00 0a 01 0c 0a 00 | 00 0a 01 56 0a 01 00 0a |........|...V....|
|000017e0| 01 5a 0a 00 00 0a 00 0c | 0d 0d 0d 0d 0d 0d 0d 0d |.Z......|........|
|000017f0| 0d 0d 0d 0d 00 01 00 2c | 00 18 09 46 49 4e 44 20 |.......,|...FIND |
|00001800| 54 45 53 54 20 54 4f 4b | 45 4e 3e 41 44 44 52 20 |TEST TOK|EN>ADDR |
|00001810| 2e 0d 00 0c 00 00 0a 00 | 00 0a 00 01 0a 01 00 0a |........|........|
|00001820| 00 01 0d 77 00 01 00 d2 | 00 b4 54 68 65 20 61 64 |...w....|..The ad|
|00001830| 64 72 65 73 73 20 74 68 | 61 74 20 79 6f 75 27 6c |dress th|at you'l|
|00001840| 6c 20 73 65 65 20 64 69 | 73 70 6c 61 79 65 64 2c |l see di|splayed,|
|00001850| 20 6f 66 20 63 6f 75 72 | 73 65 2c 20 64 65 70 65 | of cour|se, depe|
|00001860| 6e 64 73 20 6f 6e 20 68 | 6f 77 20 6d 75 63 68 20 |nds on h|ow much |
|00001870| 6f 62 6a 65 63 74 20 63 | 6f 64 65 20 79 6f 75 20 |object c|ode you |
|00001880| 68 61 76 65 20 61 6c 72 | 65 61 64 79 20 69 6e 20 |have alr|eady in |
|00001890| 79 6f 75 72 20 73 79 73 | 74 65 6d 2e 20 4c 65 74 |your sys|tem. Let|
|000018a0| 27 73 20 63 61 6c 6c 20 | 74 68 69 73 20 6e 75 6d |'s call |this num|
|000018b0| 62 65 72 20 54 45 53 54 | 41 44 44 52 2e 20 54 68 |ber TEST|ADDR. Th|
|000018c0| 65 6e 20 64 65 66 69 6e | 65 20 74 68 65 20 66 6f |en defin|e the fo|
|000018d0| 6c 6c 6f 77 69 6e 67 20 | 77 6f 72 64 3a 0d 00 12 |llowing |word:...|
|000018e0| 00 00 0a 00 00 0a 00 8a | 0a 01 00 0a 00 92 0a 00 |........|........|
|000018f0| 00 0a 00 05 0d 0d 0d 0d | 0d ff 00 00 00 22 00 50 |........|.....".P|
|00001900| 01 54 00 03 00 00 00 64 | 00 78 00 a0 00 c8 01 54 |.T.....d|.x.....T|
|00001910| 01 54 01 f9 01 f9 c8 2d | 00 00 00 00 01 f9 ff ff |.T.....-|........|
|00001920| 00 01 00 10 00 01 0d 01 | 00 06 00 00 0a 00 00 0a |........|........|
|00001930| 00 01 0d 7e 00 01 00 6a | 00 48 09 3a 20 20 54 45 |...~...j|.H.:  TE|
|00001940| 53 54 2e 44 49 53 50 20 | 20 37 20 30 20 44 4f 20 |ST.DISP | 7 0 DO |
|00001950| 49 20 32 2a 20 54 45 53 | 54 41 44 44 52 20 28 20 |I 2* TES|TADDR ( |
|00001960| 69 6e 73 65 72 74 20 79 | 6f 75 72 20 23 20 68 65 |insert y|our # he|
|00001970| 72 65 29 20 2b 20 57 40 | 20 2e 20 4c 4f 4f 50 20 |re) + W@| . LOOP |
|00001980| 3b 0d 00 18 00 00 0a 00 | 00 0a 00 01 0a 01 00 0a |;.......|........|
|00001990| 00 23 0a 00 00 0a 00 3a | 0a 01 00 0a 00 03 0d 0d |.#.....:|........|
|000019a0| 0d 50 00 00 00 22 00 50 | 01 54 03 03 00 00 00 64 |.P...".P|.T.....d|
|000019b0| 00 78 00 a0 00 c8 01 54 | 01 54 01 f9 01 f9 c8 2d |.x.....T|.T.....-|
|000019c0| 00 00 00 00 01 f9 ff ff | 00 01 00 10 00 01 0d 01 |........|........|
|000019d0| 00 06 00 00 0a 01 00 0a | 00 01 0d 2d 00 01 00 58 |........|...-...X|
|000019e0| 00 3d 61 6e 64 20 65 78 | 65 63 75 74 65 20 54 45 |.=and ex|ecute TE|
|000019f0| 53 54 2e 44 49 53 50 3b | 20 79 6f 75 20 77 69 6c |ST.DISP;| you wil|
|00001a00| 6c 20 73 65 65 20 74 68 | 65 20 6c 69 73 74 20 6f |l see th|e list o|
|00001a10| 66 20 77 6f 72 64 73 20 | 61 62 6f 76 65 2e 0d 2e |f words |above...|
|00001a20| 00 12 00 00 0a 00 00 0a | 00 0c 0a 01 00 0a 00 16 |........|........|
|00001a30| 0a 00 00 0a 00 02 0d 0d | 00 01 01 20 01 0c 54 68 |........|... ..Th|
|00001a40| 69 73 20 77 61 79 20 79 | 6f 75 20 63 61 6e 20 64 |is way y|ou can d|
|00001a50| 65 63 6f 6d 70 69 6c 65 | 20 61 6e 79 20 46 6f 72 |ecompile| any For|
|00001a60| 74 68 20 77 6f 72 64 20 | 74 68 61 74 20 79 6f 75 |th word |that you|
|00001a70| 20 66 69 6e 64 20 69 6e | 20 74 68 65 20 73 79 73 | find in| the sys|
|00001a80| 74 65 6d 2e 20 54 68 65 | 20 64 65 63 6f 6d 70 69 |tem. The| decompi|
|00001a90| 6c 65 72 20 69 73 20 73 | 6f 6d 65 77 68 61 74 20 |ler is s|omewhat |
|00001aa0| 6d 6f 72 65 20 63 6f 6e | 76 65 6e 69 65 6e 74 2c |more con|venient,|
|00001ab0| 20 6f 66 20 63 6f 75 72 | 73 65 3b 20 69 66 20 79 | of cour|se; if y|
|00001ac0| 6f 75 20 75 73 65 20 74 | 68 65 20 70 72 6f 63 65 |ou use t|he proce|
|00001ad0| 64 75 72 65 20 61 62 6f | 76 65 2c 20 79 6f 75 20 |dure abo|ve, you |
|00001ae0| 73 74 69 6c 6c 20 68 61 | 76 65 20 74 6f 20 63 6f |still ha|ve to co|
|00001af0| 6e 76 65 72 74 20 74 68 | 65 20 74 6f 6b 65 6e 73 |nvert th|e tokens|
|00001b00| 20 69 6e 74 6f 20 46 6f | 72 74 68 20 77 6f 72 64 | into Fo|rth word|
|00001b10| 73 2e 20 54 68 69 73 20 | 69 73 20 64 6f 6e 65 20 |s. This |is done |
|00001b20| 28 66 6f 72 20 6f 6e 65 | 20 74 6f 6b 65 6e 20 6f |(for one| token o|
|00001b30| 6e 20 74 68 65 20 73 74 | 61 63 6b 29 20 62 79 20 |n the st|ack) by |
|00001b40| 65 78 65 63 75 74 69 6e | 67 0d 00 06 00 00 0a 00 |executin|g.......|
|00001b50| 00 0a 00 07 0d 0d 0d 0d | 0d 0d 0d 00 00 01 00 1e |........|........|
|00001b60| 00 09 09 4e 46 41 20 49 | 44 2e 0d 2e 00 0c 00 00 |...NFA I|D.......|
|00001b70| 0a 00 00 0a 00 01 0a 01 | 00 0a 00 01 0d a4 00 01 |........|........|
|00001b80| 00 d6 00 95 54 68 69 73 | 20 63 6f 6e 76 65 72 74 |....This| convert|
|00001b90| 73 20 74 68 65 20 74 6f | 6b 65 6e 20 28 6e 6f 74 |s the to|ken (not|
|00001ba0| 20 74 68 65 20 70 66 61 | 2c 20 61 73 20 74 68 65 | the pfa|, as the|
|00001bb0| 20 46 6f 72 74 68 20 31 | 2e 31 20 6d 61 6e 75 61 | Forth 1|.1 manua|
|00001bc0| 6c 20 73 61 79 73 29 20 | 69 6e 74 6f 20 74 68 65 |l says) |into the|
|00001bd0| 20 6e 61 6d 65 20 66 69 | 65 6c 64 20 61 64 64 72 | name fi|eld addr|
|00001be0| 65 73 73 20 28 4e 46 41 | 29 20 61 6e 64 20 74 68 |ess (NFA|) and th|
|00001bf0| 65 6e 20 64 69 73 70 6c | 61 79 73 20 74 68 65 20 |en displ|ays the |
|00001c00| 6e 61 6d 65 20 6f 66 20 | 74 68 65 20 77 6f 72 64 |name of |the word|
|00001c10| 20 28 49 44 2e 29 2e 20 | 0d 20 00 36 00 00 0a 00 | (ID.). |. .6....|
|00001c20| 00 0a 00 12 0a 02 00 0a | 00 17 0a 00 00 0a 00 21 |........|.......!|
|00001c30| 0a 02 00 0a 00 24 0a 00 | 00 0a 00 61 0a 01 00 0a |.....$..|...a....|
|00001c40| 00 64 0a 00 00 0a 00 8e | 0a 01 00 0a 00 91 0a 00 |.d......|........|
|00001c50| 00 0a 00 04 0d 0d 0d 0d | 00 01 00 10 00 01 0d 01 |........|........|
|00001c60| 00 06 00 00 0a 00 00 0a | 00 01 0d 5c 00 01 00 2c |........|...\...,|
|00001c70| 00 1e 09 4d 61 63 68 69 | 6e 65 20 6c 61 6e 67 75 |...Machi|ne langu|
|00001c80| 61 67 65 20 64 65 66 69 | 6e 69 74 69 6f 6e 73 0d |age defi|nitions.|
|00001c90| 00 06 00 00 0c 00 00 00 | 00 01 10 5c 00 01 00 10 |........|...\....|
|00001ca0| 00 01 0d 01 00 06 00 00 | 0a 04 00 0a 00 01 0d 38 |........|.......8|
|00001cb0| 00 01 01 42 01 16 57 68 | 61 74 20 69 66 20 74 68 |...B..Wh|at if th|
|00001cc0| 65 20 64 65 66 69 6e 69 | 74 69 6f 6e 20 69 73 20 |e defini|tion is |
|00001cd0| 64 69 72 65 63 74 20 6d | 61 63 68 69 6e 65 20 6c |direct m|achine l|
|00001ce0| 61 6e 67 75 61 67 65 20 | 63 6f 64 65 3f 20 41 67 |anguage |code? Ag|
|00001cf0| 61 69 6e 2c 20 6c 65 74 | 20 75 73 20 6c 6f 6f 6b |ain, let| us look|
|00001d00| 20 61 74 20 61 6e 20 65 | 78 61 6d 70 6c 65 2c 20 | at an e|xample, |
|00001d10| 74 68 65 20 77 6f 72 64 | 20 53 57 41 50 2e 20 46 |the word| SWAP. F|
|00001d20| 49 4e 44 20 53 57 41 50 | 20 54 4f 4b 45 4e 3e 41 |IND SWAP| TOKEN>A|
|00001d30| 44 44 52 20 67 69 76 65 | 73 20 28 69 6e 20 6d 79 |DDR give|s (in my|
|00001d40| 20 73 79 73 74 65 6d 29 | 20 24 35 42 36 30 2e 20 | system)| $5B60. |
|00001d50| 41 74 20 74 68 69 73 20 | 61 64 64 72 65 73 73 2c |At this |address,|
|00001d60| 20 68 6f 77 65 76 65 72 | 2c 20 77 65 20 66 69 6e | however|, we fin|
|00001d70| 64 20 63 6f 64 65 20 74 | 68 61 74 20 64 6f 65 73 |d code t|hat does|
|00001d80| 20 6e 6f 74 20 73 74 61 | 72 74 20 77 69 74 68 20 | not sta|rt with |
|00001d90| 61 20 74 72 61 70 20 73 | 74 61 74 65 6d 65 6e 74 |a trap s|tatement|
|00001da0| 3b 20 69 74 20 69 73 20 | 61 20 72 6f 75 74 69 6e |; it is |a routin|
|00001db0| 65 20 74 68 61 74 20 64 | 6f 65 73 20 77 68 61 74 |e that d|oes what|
|00001dc0| 20 77 65 20 65 78 70 65 | 63 74 3a 0d 00 1e 00 00 | we expe|ct:.....|
|00001dd0| 0a 00 00 0a 00 63 0a 01 | 00 0a 00 67 0a 00 00 0a |.....c..|...g....|
|00001de0| 00 69 0a 01 00 0a 00 7e | 0a 00 00 0a 00 08 0d 0d |.i.....~|........|
|00001df0| 0d 0d 0d 0d 0d 0d 00 00 | 00 22 00 50 01 54 00 05 |........|.".P.T..|
|00001e00| 00 00 00 50 00 64 00 78 | 00 8c 00 a0 00 b4 01 54 |...P.d.x|.......T|
|00001e10| 01 54 c8 2d 00 00 00 00 | 01 f9 ff ff 00 01 00 54 |.T.-....|.......T|
|00001e20| 00 39 09 32 30 32 46 09 | 30 30 30 34 09 4d 4f 56 |.9.202F.|0004.MOV|
|00001e30| 45 2e 4c 20 34 28 41 37 | 29 2c 44 30 20 20 20 20 |E.L 4(A7|),D0    |
|00001e40| 2f 6d 6f 76 65 20 69 74 | 65 6d 20 62 65 6c 6f 77 |/move it|em below|
|00001e50| 20 74 6f 70 20 2d 3e 20 | 44 30 0d 30 00 12 00 00 | top -> |D0.0....|
|00001e60| 0a 00 00 0a 00 0b 0a 01 | 00 0a 00 1b 0a 00 00 0a |........|........|
|00001e70| 00 02 0d 0d 00 01 00 50 | 00 35 09 32 46 35 37 09 |.......P|.5.2F57.|
|00001e80| 30 30 30 34 09 4d 4f 56 | 45 2e 4c 20 28 41 37 29 |0004.MOV|E.L (A7)|
|00001e90| 2c 34 28 41 37 29 20 2f | 6d 6f 76 65 20 74 6f 70 |,4(A7) /|move top|
|00001ea0| 20 69 74 65 6d 20 6f 6e | 65 20 64 6f 77 6e 0d 6e | item on|e down.n|
|00001eb0| 00 12 00 00 0a 00 00 0a | 00 0b 0a 01 00 0a 00 1c |........|........|
|00001ec0| 0a 00 00 0a 00 02 0d 0d | 00 01 00 50 00 36 09 32 |........|...P.6.2|
|00001ed0| 45 38 30 09 09 09 4d 4f | 56 45 2e 4c 20 44 30 2c |E80...MO|VE.L D0,|
|00001ee0| 28 41 37 29 20 20 20 20 | 20 20 20 2f 6d 6f 76 65 |(A7)    |   /move|
|00001ef0| 20 44 30 20 2d 3e 20 74 | 6f 70 20 6f 66 20 73 74 | D0 -> t|op of st|
|00001f00| 61 63 6b 0d 00 12 00 00 | 0a 00 00 0a 00 08 0a 01 |ack.....|........|
|00001f10| 00 0a 00 16 0a 00 00 0a | 00 02 0d 0d 00 01 00 3e |........|.......>|
|00001f20| 00 23 09 34 45 44 34 09 | 09 09 4a 4d 50 20 28 41 |.#.4ED4.|..JMP (A|
|00001f30| 34 29 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |4)      |        |
|00001f40| 20 20 20 20 0d 20 00 12 | 00 00 0a 00 00 0a 00 08 |    . ..|........|
|00001f50| 0a 01 00 0a 00 11 0a 00 | 00 0a 00 01 0d 42 00 01 |........|.....B..|
|00001f60| 00 1e 00 10 2f 67 65 74 | 20 6e 65 78 74 20 74 6f |..../get| next to|
|00001f70| 6b 65 6e 0d 00 06 00 00 | 0a 00 00 0a 00 01 0d 39 |ken.....|.......9|
|00001f80| 00 00 00 22 00 50 01 54 | 03 03 00 00 00 64 00 78 |...".P.T|.....d.x|
|00001f90| 00 a0 00 c8 01 54 01 54 | 01 f9 01 f9 c8 2d 00 00 |.....T.T|.....-..|
|00001fa0| 00 00 01 f9 ff ff 00 01 | 00 10 00 01 0d 01 00 06 |........|........|
|00001fb0| 00 00 0a 00 00 0a 00 01 | 0d f1 00 01 01 54 01 40 |........|.....T.@|
|00001fc0| 57 65 20 73 65 65 20 74 | 68 61 74 20 69 6e 64 65 |We see t|hat inde|
|00001fd0| 65 64 20 74 68 65 20 74 | 77 6f 20 74 6f 70 20 73 |ed the t|wo top s|
|00001fe0| 74 61 63 6b 20 69 74 65 | 6d 73 20 61 72 65 20 65 |tack ite|ms are e|
|00001ff0| 78 63 68 61 6e 67 65 64 | 2e 20 54 68 65 20 6c 61 |xchanged|. The la|
|00002000| 73 74 20 73 74 61 74 65 | 6d 65 6e 74 20 69 73 20 |st state|ment is |
|00002010| 74 68 65 20 65 6e 64 20 | 6f 66 20 61 6e 79 20 6d |the end |of any m|
|00002020| 61 63 68 69 6e 65 20 6c | 61 6e 67 75 61 67 65 20 |achine l|anguage |
|00002030| 46 6f 72 74 68 20 64 65 | 66 69 6e 69 74 69 6f 6e |Forth de|finition|
|00002040| 2e 20 54 68 69 73 20 6a | 75 6d 70 20 74 6f 20 74 |. This j|ump to t|
|00002050| 68 65 20 61 64 64 72 65 | 73 73 20 69 6e 20 41 34 |he addre|ss in A4|
|00002060| 20 69 73 20 77 68 61 74 | 20 49 20 62 72 69 65 66 | is what| I brief|
|00002070| 6c 79 20 6d 65 6e 74 69 | 6f 6e 65 64 20 61 62 6f |ly menti|oned abo|
|00002080| 76 65 2e 20 41 34 20 63 | 6f 6e 74 61 69 6e 73 20 |ve. A4 c|ontains |
|00002090| 74 68 65 20 61 64 64 72 | 65 73 73 20 6f 66 20 61 |the addr|ess of a|
|000020a0| 20 72 6f 75 74 69 6e 65 | 20 74 68 61 74 20 67 65 | routine| that ge|
|000020b0| 74 73 20 61 6e 64 20 65 | 78 65 63 75 74 65 73 20 |ts and e|xecutes |
|000020c0| 74 68 65 20 6e 65 78 74 | 20 46 6f 72 74 68 20 74 |the next| Forth t|
|000020d0| 6f 6b 65 6e 20 66 72 6f | 6d 20 74 68 65 20 6f 62 |oken fro|m the ob|
|000020e0| 6a 65 63 74 20 63 6f 64 | 65 20 28 77 68 69 63 68 |ject cod|e (which|
|000020f0| 20 41 33 20 70 6f 69 6e | 74 73 20 74 6f 29 3a 0d | A3 poin|ts to):.|
|00002100| 00 06 00 00 0a 00 00 0a | 00 08 0d 0d 0d 0d 0d 0d |........|........|
|00002110| 0d 0d 00 01 00 10 00 01 | 0d 01 00 06 00 00 0a 00 |........|........|
|00002120| 00 0a 00 01 0d 8e 00 00 | 00 22 00 50 01 54 00 07 |........|.".P.T..|
|00002130| 00 00 00 50 00 64 00 78 | 00 8c 00 a0 00 b4 00 c8 |...P.d.x|........|
|00002140| 00 dc 01 54 01 54 00 00 | 01 f9 ff ff 00 01 00 10 |...T.T..|........|
|00002150| 00 01 0d 01 00 06 00 00 | 0a 00 00 0a 00 01 0d 46 |........|.......F|
|00002160| 00 01 00 2a 00 10 09 4d | 4f 56 45 20 28 41 33 29 |...*...M|OVE (A3)|
|00002170| 2b 2c 44 30 09 0d 00 12 | 00 00 0a 00 00 0a 00 01 |+,D0....|........|
|00002180| 0a 01 00 0a 00 0e 0a 00 | 00 0a 00 01 0d 46 00 01 |........|.....F..|
|00002190| 00 28 00 19 2f 6e 65 78 | 74 20 6f 62 6a 65 63 74 |.(../nex|t object|
|000021a0| 20 74 6f 6b 65 6e 20 2d | 3e 20 44 30 0d 30 00 06 | token -|> D0.0..|
|000021b0| 00 00 0a 00 00 0a 00 01 | 0d 5b 00 01 00 26 00 0b |........|.[...&..|
|000021c0| 09 42 4d 49 20 4c 31 09 | 09 09 0d 09 00 12 00 00 |.BMI L1.|........|
|000021d0| 0a 00 00 0a 00 01 0a 01 | 00 0a 00 08 0a 00 00 0a |........|........|
|000021e0| 00 01 0d 5b 00 01 00 38 | 00 29 2f 69 73 20 69 74 |...[...8|.)/is it|
|000021f0| 20 6e 65 67 2e 20 67 65 | 74 20 61 64 64 72 65 73 | neg. ge|t addres|
|00002200| 73 20 66 72 6f 6d 20 74 | 6f 6b 65 6e 20 74 61 62 |s from t|oken tab|
|00002210| 6c 65 0d 65 00 06 00 00 | 0a 00 00 0a 00 01 0d 5b |le.e....|.......[|
|00002220| 00 01 00 2a 00 10 09 4a | 4d 50 20 28 41 34 2c 44 |...*...J|MP (A4,D|
|00002230| 30 2e 57 29 09 0d 00 12 | 00 00 0a 00 00 0a 00 01 |0.W)....|........|
|00002240| 0a 01 00 0a 00 0e 0a 00 | 00 0a 00 01 0d 37 00 01 |........|.....7..|
|00002250| 00 38 00 2a 2f 6a 75 6d | 70 20 74 6f 20 73 74 61 |.8.*/jum|p to sta|
|00002260| 72 74 20 6f 66 20 64 65 | 66 69 6e 69 74 69 6f 6e |rt of de|finition|
|00002270| 20 28 74 6f 6b 65 6e 20 | 2b 20 41 34 29 0d 00 06 | (token |+ A4)...|
|00002280| 00 00 0a 00 00 0a 00 01 | 0d 2a 00 01 00 22 00 14 |........|.*..."..|
|00002290| 4c 31 09 4d 4f 56 45 28 | 41 34 2c 44 30 2e 57 29 |L1.MOVE(|A4,D0.W)|
|000022a0| 2c 44 31 0d 00 06 00 00 | 0a 01 00 0a 00 01 0d 1d |,D1.....|........|
|000022b0| 00 01 00 26 00 18 2f 67 | 65 74 20 61 64 64 72 65 |...&../g|et addre|
|000022c0| 73 73 20 66 72 6f 6d 20 | 74 61 62 6c 65 0d 00 06 |ss from |table...|
|000022d0| 00 00 0a 00 00 0a 00 01 | 0d 10 00 01 00 2a 00 10 |........|.....*..|
|000022e0| 09 4a 4d 50 20 28 41 34 | 2c 44 31 2e 57 29 09 0d |.JMP (A4|,D1.W)..|
|000022f0| 00 12 00 00 0a 00 00 0a | 00 01 0a 01 00 0a 00 0e |........|........|
|00002300| 0a 00 00 0a 00 01 0d 03 | 00 01 00 30 00 21 2f 61 |........|...0.!/a|
|00002310| 6e 64 20 6a 75 6d 70 20 | 74 6f 20 73 74 61 72 74 |nd jump |to start|
|00002320| 20 6f 66 20 64 65 66 69 | 6e 69 74 69 6f 6e 0d 6e | of defi|nition.n|
|00002330| 00 06 00 00 0a 00 00 0a | 00 01 0d f0 00 01 00 10 |........|........|
|00002340| 00 01 0d 01 00 06 00 00 | 0a 00 00 0a 00 01 0d f0 |........|........|
|00002350| 00 00 00 22 00 50 01 54 | 03 03 00 00 00 64 00 78 |...".P.T|.....d.x|
|00002360| 00 a0 00 c8 01 54 01 54 | 01 f9 01 f9 c8 2d 00 00 |.....T.T|.....-..|
|00002370| 00 00 01 f9 ff ff 00 01 | 00 10 00 01 0d 01 00 06 |........|........|
|00002380| 00 00 0a 00 00 0a 00 01 | 0d a8 00 01 00 24 00 15 |........|.....$..|
|00002390| 09 09 48 69 64 64 65 6e | 20 64 65 66 69 6e 69 74 |..Hidden| definit|
|000023a0| 69 6f 6e 73 0d 00 00 06 | 00 00 0c 00 00 00 00 01 |ions....|........|
|000023b0| 10 a8 00 01 00 10 00 01 | 0d 01 00 06 00 00 0a 00 |........|........|
|000023c0| 00 0a 00 01 0d 84 00 01 | 03 3c 03 01 57 68 65 6e |........|.<..When|
|000023d0| 20 79 6f 75 20 64 65 63 | 6f 6d 70 69 6c 65 20 28 | you dec|ompile (|
|000023e0| 77 69 74 68 20 74 68 65 | 20 70 72 6f 67 72 61 6d |with the| program|
|000023f0| 20 62 65 6c 6f 77 29 20 | 74 68 65 20 77 6f 72 64 | below) |the word|
|00002400| 20 53 45 4c 45 43 54 2e | 57 49 4e 44 4f 57 2c 20 | SELECT.|WINDOW, |
|00002410| 79 6f 75 27 6c 6c 20 73 | 65 65 20 73 6f 6d 65 74 |you'll s|ee somet|
|00002420| 68 69 6e 67 20 66 75 6e | 6e 79 2e 20 49 74 20 73 |hing fun|ny. It s|
|00002430| 65 65 6d 73 20 74 6f 20 | 62 65 20 61 20 72 65 67 |eems to |be a reg|
|00002440| 75 6c 61 72 20 46 6f 72 | 74 68 20 63 6f 6c 6f 6e |ular For|th colon|
|00002450| 20 64 65 66 69 6e 69 74 | 69 6f 6e 3b 20 68 6f 77 | definit|ion; how|
|00002460| 65 76 65 72 2c 20 74 68 | 65 20 74 6f 6b 65 6e 73 |ever, th|e tokens|
|00002470| 20 64 69 73 70 6c 61 79 | 65 64 20 73 65 65 6d 20 | display|ed seem |
|00002480| 74 6f 20 68 61 76 65 20 | 6e 6f 20 6e 61 6d 65 2e |to have |no name.|
|00002490| 20 4f 6e 6c 79 20 3f 3f | 3f 20 61 6e 64 20 74 68 | Only ??|? and th|
|000024a0| 65 20 74 6f 6b 65 6e 20 | 6e 75 6d 62 65 72 73 20 |e token |numbers |
|000024b0| 61 72 65 20 64 69 73 70 | 6c 61 79 65 64 2e 20 54 |are disp|layed. T|
|000024c0| 68 65 73 65 20 61 72 65 | 20 74 6f 6b 65 6e 73 20 |hese are| tokens |
|000024d0| 77 68 6f 73 65 20 6e 61 | 6d 65 73 20 68 61 76 65 |whose na|mes have|
|000024e0| 20 62 65 65 6e 20 64 65 | 6c 65 74 65 64 20 66 72 | been de|leted fr|
|000024f0| 6f 6d 20 74 68 65 20 76 | 6f 63 61 62 75 6c 61 72 |om the v|ocabular|
|00002500| 79 2c 20 62 75 74 20 74 | 68 65 69 72 20 63 6f 72 |y, but t|heir cor|
|00002510| 72 65 73 70 6f 6e 64 69 | 6e 67 20 61 64 64 72 65 |respondi|ng addre|
|00002520| 73 73 65 73 20 28 41 34 | 2b 74 6f 6b 65 6e 29 20 |sses (A4|+token) |
|00002530| 70 6f 69 6e 74 20 74 6f | 20 76 61 6c 69 64 20 64 |point to| valid d|
|00002540| 65 66 69 6e 69 74 69 6f | 6e 73 2e 20 54 68 65 20 |efinitio|ns. The |
|00002550| 72 65 61 73 6f 6e 20 77 | 68 79 20 43 53 49 20 64 |reason w|hy CSI d|
|00002560| 69 64 20 74 68 69 73 20 | 69 73 20 70 72 6f 62 61 |id this |is proba|
|00002570| 62 6c 79 20 74 6f 20 6b | 65 65 70 20 74 68 65 20 |bly to k|eep the |
|00002580| 76 6f 63 61 62 75 6c 61 | 72 79 20 73 68 6f 72 74 |vocabula|ry short|
|00002590| 20 61 6e 64 20 74 6f 20 | 6d 61 6b 65 20 77 6f 72 | and to |make wor|
|000025a0| 64 73 20 69 6e 61 63 63 | 65 73 73 69 62 6c 65 20 |ds inacc|essible |
|000025b0| 74 6f 20 75 73 65 72 73 | 20 77 68 6f 73 65 20 6d |to users| whose m|
|000025c0| 69 73 75 73 65 20 63 6f | 75 6c 64 20 68 61 76 65 |isuse co|uld have|
|000025d0| 20 61 20 64 69 73 61 73 | 74 65 72 6f 75 73 20 65 | a disas|terous e|
|000025e0| 66 66 65 63 74 20 6f 6e | 20 74 68 65 20 73 79 73 |ffect on| the sys|
|000025f0| 74 65 6d 2e 20 41 6e 79 | 77 61 79 2c 20 74 68 65 |tem. Any|way, the|
|00002600| 20 77 6f 72 64 20 53 55 | 42 4c 45 56 45 4c 20 69 | word SU|BLEVEL i|
|00002610| 6e 20 74 68 65 20 64 65 | 66 69 6e 69 74 69 6f 6e |n the de|finition|
|00002620| 73 20 62 65 6c 6f 77 20 | 77 69 6c 6c 20 64 65 63 |s below |will dec|
|00002630| 6f 6d 70 69 6c 65 20 61 | 6e 64 20 64 69 73 70 6c |ompile a|nd displ|
|00002640| 61 79 20 61 6e 79 20 73 | 75 63 68 20 27 68 69 64 |ay any s|uch 'hid|
|00002650| 64 65 6e 27 20 63 6f 64 | 65 2c 20 69 66 20 69 74 |den' cod|e, if it|
|00002660| 20 69 73 20 61 20 63 6f | 6c 6f 6e 20 64 65 66 69 | is a co|lon defi|
|00002670| 6e 69 74 69 6f 6e 2e 20 | 49 74 20 77 69 6c 6c 20 |nition. |It will |
|00002680| 64 69 73 70 6c 61 79 20 | 6e 6f 74 68 69 6e 67 20 |display |nothing |
|00002690| 66 6f 72 20 6d 61 63 68 | 69 6e 65 20 63 6f 64 65 |for mach|ine code|
|000026a0| 20 64 65 66 69 6e 69 74 | 69 6f 6e 73 2c 20 79 6f | definit|ions, yo|
|000026b0| 75 20 68 61 76 65 20 74 | 6f 20 64 69 73 61 73 73 |u have t|o disass|
|000026c0| 65 6d 62 6c 65 20 74 68 | 65 6d 2e 20 0d 20 00 1e |emble th|em. . ..|
|000026d0| 00 00 0a 00 00 0a 00 35 | 0a 01 00 0a 00 42 0a 00 |.......5|.....B..|
|000026e0| 00 0a 02 3a 0a 01 00 0a | 02 42 0a 00 00 0a 00 15 |...:....|.B......|
|000026f0| 0d 0d 0d 0d 0d 0d 0d 0d | 0d 0d 0d 0d 0d 0d 0d 0d |........|........|
|00002700| 0d 0d 0d 0d 0d 52 00 01 | 00 76 00 5f 53 45 4c 45 |.....R..|.v._SELE|
|00002710| 43 54 2e 57 49 4e 44 4f | 57 2c 20 77 69 74 68 20 |CT.WINDO|W, with |
|00002720| 74 68 69 73 20 74 6f 6f | 6c 2c 20 74 68 65 6e 20 |this too|l, then |
|00002730| 62 65 63 6f 6d 65 73 20 | 76 65 72 79 20 63 6c 65 |becomes |very cle|
|00002740| 61 72 2e 20 49 74 73 20 | 66 69 72 73 74 20 6c 65 |ar. Its |first le|
|00002750| 76 65 6c 20 64 65 66 69 | 6e 69 74 69 6f 6e 20 6c |vel defi|nition l|
|00002760| 6f 6f 6b 73 20 6c 69 6b | 65 3a 0d 3a 00 0c 00 00 |ooks lik|e:.:....|
|00002770| 0a 01 00 0a 00 0d 0a 00 | 00 0a 00 03 0d 0d 0d 50 |........|.......P|
|00002780| 00 01 00 30 00 21 3a 20 | 53 45 4c 45 43 54 2e 57 |...0.!: |SELECT.W|
|00002790| 49 4e 44 4f 57 20 7b 32 | 31 34 32 7d 20 7b 31 42 |INDOW {2|142} {1B|
|000027a0| 30 45 7d 20 20 3b 0d 3b | 00 06 00 00 0a 01 00 0a |0E}  ;.;|........|
|000027b0| 00 01 0d 40 00 01 01 42 | 01 0a 77 68 65 72 65 20 |...@...B|..where |
|000027c0| 74 68 65 20 62 72 61 63 | 65 73 20 69 6e 64 69 63 |the brac|es indic|
|000027d0| 61 74 65 20 74 68 6f 73 | 65 20 27 6e 6f 2d 6e 61 |ate thos|e 'no-na|
|000027e0| 6d 65 27 20 74 6f 6b 65 | 6e 73 2e 20 7b 32 31 34 |me' toke|ns. {214|
|000027f0| 32 7d 20 6d 65 72 65 6c | 79 20 63 68 65 63 6b 73 |2} merel|y checks|
|00002800| 20 69 66 20 74 68 65 20 | 70 6f 69 6e 74 65 72 20 | if the |pointer |
|00002810| 6f 6e 20 74 68 65 20 73 | 74 61 63 6b 20 69 73 20 |on the s|tack is |
|00002820| 61 20 76 61 6c 69 64 20 | 77 69 6e 64 6f 77 20 70 |a valid |window p|
|00002830| 6f 69 6e 74 65 72 2c 20 | 74 6f 20 6b 65 65 70 20 |ointer, |to keep |
|00002840| 74 68 65 20 74 6f 6f 6c | 62 6f 78 20 72 6f 75 74 |the tool|box rout|
|00002850| 69 6e 65 20 66 72 6f 6d | 20 63 72 61 73 68 69 6e |ine from| crashin|
|00002860| 67 3b 20 64 65 63 6f 6d | 70 69 6c 65 20 69 74 20 |g; decom|pile it |
|00002870| 77 69 74 68 20 53 55 42 | 4c 45 56 45 4c 20 74 6f |with SUB|LEVEL to|
|00002880| 20 73 65 65 20 77 68 61 | 74 20 69 74 20 64 6f 65 | see wha|t it doe|
|00002890| 73 20 65 78 61 63 74 6c | 79 2e 20 7b 31 42 30 45 |s exactl|y. {1B0E|
|000028a0| 7d 20 69 73 20 61 20 32 | 2d 77 6f 72 64 20 6d 61 |} is a 2|-word ma|
|000028b0| 63 68 69 6e 65 20 63 6f | 64 65 20 72 6f 75 74 69 |chine co|de routi|
|000028c0| 6e 65 3a 0d 00 2a 00 00 | 0a 00 00 0a 00 32 0a 01 |ne:..*..|.....2..|
|000028d0| 00 0a 00 38 0a 00 00 0a | 00 bb 0a 01 00 0a 00 c3 |...8....|........|
|000028e0| 0a 00 00 0a 00 e1 0a 01 | 00 0a 00 e7 0a 00 00 0a |........|........|
|000028f0| 00 07 0d 0d 0d 0d 0d 0d | 0d 26 00 00 00 22 00 50 |........|.&...".P|
|00002900| 01 54 00 03 00 00 00 50 | 00 64 00 a0 00 b4 01 54 |.T.....P|.d.....T|
|00002910| 01 54 01 f9 01 f9 c8 2d | 00 00 00 00 01 f9 ff ff |.T.....-|........|
|00002920| 00 01 00 10 00 01 0d 00 | 00 06 00 00 0a 00 00 0a |........|........|
|00002930| 00 01 0d d7 00 01 00 24 | 00 09 09 24 41 39 31 46 |.......$|...$A91F|
|00002940| 09 09 0d 09 00 12 00 00 | 0a 00 00 0a 00 01 0a 01 |........|........|
|00002950| 00 0a 00 06 0a 00 00 0a | 00 01 0d ca 00 01 00 2e |........|........|
|00002960| 00 20 2f 74 6f 6f 6c 62 | 6f 78 20 74 72 61 70 20 |. /toolb|ox trap |
|00002970| 66 6f 72 20 53 45 4c 45 | 43 54 2e 57 49 4e 44 4f |for SELE|CT.WINDO|
|00002980| 57 0d 00 06 00 00 0a 00 | 00 0a 00 01 0d bd 00 01 |W.......|........|
|00002990| 00 26 00 0b 09 4a 4d 50 | 20 28 41 34 29 09 0d 09 |.&...JMP| (A4)...|
|000029a0| 00 12 00 00 0a 00 00 0a | 00 01 0a 01 00 0a 00 09 |........|........|
|000029b0| 0a 00 00 0a 00 01 0d b0 | 00 01 00 2e 00 20 2f 61 |........|..... /a|
|000029c0| 6e 64 20 67 65 74 20 6e | 65 78 74 20 77 6f 72 64 |nd get n|ext word|
|000029d0| 2e 20 54 68 61 74 27 73 | 20 61 6c 6c 21 0d 00 06 |. That's| all!...|
|000029e0| 00 00 0a 00 00 0a 00 01 | 0d a3 00 00 00 22 00 00 |........|....."..|
|000029f0| 01 fe 00 03 00 00 00 00 | 00 78 00 a0 00 c8 02 08 |........|.x......|
|00002a00| 02 08 01 f9 01 f9 c8 2d | 00 00 00 00 01 f9 ff ff |.......-|........|
|00002a10| 00 01 00 10 00 01 0d 01 | 00 06 00 00 0a 00 00 0a |........|........|
|00002a20| 00 01 0d 2f 00 01 00 10 | 00 01 0d 01 00 06 00 00 |.../....|........|
|00002a30| 0a 00 00 0a 00 01 0d c4 | 00 01 00 10 00 01 0d 01 |........|........|
|00002a40| 00 06 00 00 0a 00 00 0a | 00 01 0d b7 00 01 00 2a |........|.......*|
|00002a50| 00 1c 4c 69 73 74 69 6e | 67 20 31 3a 20 46 6f 72 |..Listin|g 1: For|
|00002a60| 74 68 20 64 65 63 6f 6d | 70 69 6c 65 72 0d 00 06 |th decom|piler...|
|00002a70| 00 00 0a 05 00 0a 00 01 | 0d ab 00 01 00 10 00 01 |........|........|
|00002a80| 0d 01 00 06 00 00 0a 00 | 00 0a 00 01 0d ab 00 01 |........|........|
|00002a90| 00 5c 00 4e 28 20 44 45 | 43 4f 4d 50 49 4c 45 52 |.\.N( DE|COMPILER|
|00002aa0| 20 42 6c 6f 63 6b 73 20 | 46 69 6c 65 20 2d 2d 20 | Blocks |File -- |
|00002ab0| 56 65 72 73 69 6f 6e 20 | 31 2e 30 30 20 29 20 20 |Version |1.00 )  |
|00002ac0| 20 20 20 20 20 20 28 20 | 41 44 47 20 2d 20 6d 6f |      ( |ADG - mo|
|00002ad0| 64 69 66 2e 20 31 31 30 | 33 38 34 20 6a 6c 20 29 |dif. 110|384 jl )|
|00002ae0| 20 0d 00 06 00 00 09 00 | 00 04 00 01 0b d7 00 01 | .......|........|
|00002af0| 00 50 00 41 20 44 45 43 | 4f 4d 50 20 20 28 20 2d |.P.A DEC|OMP  ( -|
|00002b00| 2d 20 29 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |- )     |        |
|00002b10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002b20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002b30| 20 20 20 20 0d 20 00 06 | 00 00 09 00 00 04 00 01 |    . ..|........|
|00002b40| 0b d7 00 01 02 3a 02 25 | 44 65 63 6f 6d 70 69 6c |.....:.%|Decompil|
|00002b50| 65 73 20 74 68 65 20 64 | 65 66 69 6e 69 74 69 6f |es the d|efinitio|
|00002b60| 6e 20 6f 66 20 74 68 65 | 20 6e 65 78 74 20 77 6f |n of the| next wo|
|00002b70| 72 64 20 69 6e 20 74 68 | 65 20 69 6e 70 75 74 20 |rd in th|e input |
|00002b80| 73 74 72 65 61 6d 2e 20 | 20 41 20 6c 69 6e 65 20 |stream. | A line |
|00002b90| 69 73 20 64 69 73 70 6c | 61 79 65 64 20 66 6f 72 |is displ|ayed for|
|00002ba0| 20 65 61 63 68 20 77 6f | 72 64 20 69 6e 20 74 68 | each wo|rd in th|
|00002bb0| 65 20 64 65 66 69 6e 69 | 74 69 6f 6e 2e 20 45 61 |e defini|tion. Ea|
|00002bc0| 63 68 20 6c 69 6e 65 20 | 62 65 67 69 6e 73 20 77 |ch line |begins w|
|00002bd0| 69 74 68 20 69 74 73 20 | 72 65 6c 61 74 69 76 65 |ith its |relative|
|00002be0| 20 63 6f 64 65 20 61 64 | 64 72 65 73 73 20 69 6e | code ad|dress in|
|00002bf0| 20 68 65 78 2e 20 20 4e | 65 78 74 20 69 73 20 74 | hex.  N|ext is t|
|00002c00| 68 65 20 6e 61 6d 65 20 | 6f 66 20 74 68 65 20 77 |he name |of the w|
|00002c10| 6f 72 64 2e 20 20 46 69 | 6e 61 6c 6c 79 2c 20 69 |ord.  Fi|nally, i|
|00002c20| 66 20 74 68 65 20 77 6f | 72 64 20 68 61 73 20 61 |f the wo|rd has a|
|00002c30| 6e 20 69 6e 2d 6c 69 6e | 65 20 70 61 72 61 6d 65 |n in-lin|e parame|
|00002c40| 74 65 72 2c 20 69 74 20 | 69 73 20 73 68 6f 77 6e |ter, it |is shown|
|00002c50| 2e 20 20 49 66 20 74 68 | 65 20 77 6f 72 64 20 69 |.  If th|e word i|
|00002c60| 73 20 61 20 62 72 61 6e | 63 68 69 6e 67 20 77 6f |s a bran|ching wo|
|00002c70| 72 64 2c 20 74 68 65 20 | 76 61 6c 75 65 20 69 73 |rd, the |value is|
|00002c80| 20 74 68 65 20 74 61 72 | 67 65 74 20 61 64 64 72 | the tar|get addr|
|00002c90| 65 73 73 2e 20 20 49 66 | 20 74 68 65 20 70 61 72 |ess.  If| the par|
|00002ca0| 61 6d 65 74 65 72 20 69 | 73 20 61 20 74 6f 6b 65 |ameter i|s a toke|
|00002cb0| 6e 2c 20 69 74 73 20 6e | 61 6d 65 20 69 73 20 73 |n, its n|ame is s|
|00002cc0| 68 6f 77 6e 2e 20 20 49 | 66 20 69 74 20 69 73 20 |hown.  I|f it is |
|00002cd0| 61 20 73 74 72 69 6e 67 | 2c 20 74 68 65 20 73 74 |a string|, the st|
|00002ce0| 72 69 6e 67 20 69 73 20 | 73 68 6f 77 6e 20 69 6e |ring is |shown in|
|00002cf0| 20 64 6f 75 62 6c 65 2d | 71 75 6f 74 65 73 2e 20 | double-|quotes. |
|00002d00| 20 49 66 20 69 74 20 69 | 73 20 61 20 77 6f 72 64 | If it i|s a word|
|00002d10| 20 6f 72 20 64 6f 75 62 | 6c 65 2d 77 6f 72 64 2c | or doub|le-word,|
|00002d20| 20 69 74 73 20 68 65 78 | 20 76 61 6c 75 65 20 69 | its hex| value i|
|00002d30| 73 20 66 6f 6c 6c 6f 77 | 65 64 20 62 79 20 69 74 |s follow|ed by it|
|00002d40| 73 20 64 65 63 69 6d 61 | 6c 20 76 61 6c 75 65 2e |s decima|l value.|
|00002d50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002d60| 20 20 20 20 20 20 20 20 | 20 20 20 20 0d 20 00 06 |        |    . ..|
|00002d70| 00 00 09 00 00 04 00 07 | 0b 0b 0b 0b 0b 0b 0b b2 |........|........|
|00002d80| 00 01 00 c8 00 b7 23 44 | 45 43 4f 4d 50 20 69 6e |......#D|ECOMP in|
|00002d90| 20 62 6c 6f 63 6b 20 38 | 20 63 61 6e 20 61 6c 73 | block 8| can als|
|00002da0| 6f 20 62 65 20 6c 6f 61 | 64 65 64 20 62 79 20 74 |o be loa|ded by t|
|00002db0| 68 6f 73 65 20 77 68 6f | 20 77 69 73 68 20 74 6f |hose who| wish to|
|00002dc0| 20 77 72 69 74 65 20 61 | 20 72 6f 75 74 69 6e 65 | write a| routine|
|00002dd0| 20 74 6f 20 70 61 73 73 | 20 74 6f 6b 65 6e 73 20 | to pass| tokens |
|00002de0| 6f 6e 20 74 68 65 20 73 | 74 61 63 6b 20 74 6f 20 |on the s|tack to |
|00002df0| 62 65 20 64 65 63 6f 6d | 70 69 6c 65 64 2e 20 46 |be decom|piled. F|
|00002e00| 6f 72 20 76 61 6c 69 64 | 20 74 6f 6b 65 6e 73 2c |or valid| tokens,|
|00002e10| 20 69 74 73 20 6f 75 74 | 70 75 74 20 69 73 20 69 | its out|put is i|
|00002e20| 64 65 6e 74 69 63 61 6c | 20 74 6f 20 74 68 61 74 |dentical| to that|
|00002e30| 20 6f 66 20 44 45 43 4f | 4d 50 20 2e 0d 2e 00 06 | of DECO|MP .....|
|00002e40| 00 00 09 00 00 04 00 03 | 0b 0b 0b 50 00 01 00 50 |........|...P...P|
|00002e50| 00 41 20 57 72 69 74 74 | 65 6e 3a 20 30 37 2f 32 |.A Writt|en: 07/2|
|00002e60| 31 2f 38 34 20 20 20 42 | 79 3a 20 41 6c 61 6e 20 |1/84   B|y: Alan |
|00002e70| 44 2e 20 47 61 6c 75 6d | 62 65 63 6b 20 20 5b 37 |D. Galum|beck  [7|
|00002e80| 30 32 32 30 2c 32 30 30 | 5d 20 20 20 20 20 20 20 |0220,200|]       |
|00002e90| 20 20 0d 20 00 06 00 00 | 09 00 00 04 00 01 0b 4f |  . ....|.......O|
|00002ea0| 00 01 00 50 00 41 20 4e | 4f 20 52 49 47 48 54 53 |...P.A N|O RIGHTS|
|00002eb0| 20 52 45 53 45 52 56 45 | 44 20 20 20 20 4e 4f 20 | RESERVE|D    NO |
|00002ec0| 52 49 47 48 54 53 20 52 | 45 53 45 52 56 45 44 20 |RIGHTS R|ESERVED |
|00002ed0| 20 20 20 4e 4f 20 52 49 | 47 48 54 53 20 52 45 53 |   NO RI|GHTS RES|
|00002ee0| 45 52 56 45 44 20 0d 20 | 00 06 00 00 09 00 00 04 |ERVED . |........|
|00002ef0| 00 01 0b 4f 00 01 00 10 | 00 01 0d 01 00 06 00 00 |...O....|........|
|00002f00| 09 00 00 04 00 01 0b 4f | 00 01 01 70 01 5d 42 41 |.......O|...p.]BA|
|00002f10| 53 45 20 40 20 44 45 43 | 49 4d 41 4c 20 20 20 56 |SE @ DEC|IMAL   V|
|00002f20| 41 52 49 41 42 4c 45 20 | 48 49 47 48 2e 50 46 41 |ARIABLE |HIGH.PFA|
|00002f30| 20 20 31 36 33 38 34 20 | 4d 49 4e 49 4d 55 4d 2e |  16384 |MINIMUM.|
|00002f40| 4f 42 4a 45 43 54 20 20 | 32 30 34 38 20 4d 49 4e |OBJECT  |2048 MIN|
|00002f50| 49 4d 55 4d 2e 56 4f 43 | 41 42 20 20 20 20 20 20 |IMUM.VOC|AB      |
|00002f60| 20 20 20 3a 20 2e 44 49 | 47 49 54 53 20 20 28 20 |   : .DI|GITS  ( |
|00002f70| 6e 31 5c 6e 32 20 2d 2d | 20 20 7c 20 54 79 70 65 |n1\n2 --|  | Type|
|00002f80| 73 20 74 68 65 20 6c 6f | 77 2d 6f 72 64 65 72 20 |s the lo|w-order |
|00002f90| 6e 32 20 64 69 67 69 74 | 73 20 6f 66 20 6e 31 20 |n2 digit|s of n1 |
|00002fa0| 29 20 20 30 20 3c 23 20 | 44 4f 20 23 20 4c 4f 4f |)  0 <# |DO # LOO|
|00002fb0| 50 20 23 3e 20 54 59 50 | 45 20 3b 20 20 20 20 20 |P #> TYP|E ;     |
|00002fc0| 20 20 20 20 20 3a 20 53 | 50 41 43 45 2e 54 4f 20 |     : S|PACE.TO |
|00002fd0| 20 28 20 6e 20 2d 2d 20 | 7c 20 53 70 61 63 65 73 | ( n -- || Spaces|
|00002fe0| 20 74 6f 20 63 6f 6c 75 | 6d 6e 20 6e 20 6f 72 20 | to colu|mn n or |
|00002ff0| 32 20 73 70 61 63 65 73 | 20 69 66 20 70 61 73 74 |2 spaces| if past|
|00003000| 20 6e 20 29 20 43 4f 4c | 20 40 20 2d 20 32 20 4d | n ) COL| @ - 2 M|
|00003010| 41 58 20 53 50 41 43 45 | 53 20 3b 20 20 20 20 20 |AX SPACE|S ;     |
|00003020| 20 20 20 20 20 20 20 20 | 20 20 3a 20 44 49 53 50 |        |  : DISP|
|00003030| 2e 57 4f 52 44 20 20 20 | 20 28 20 70 66 61 20 2d |.WORD   | ( pfa -|
|00003040| 2d 20 70 66 61 2b 32 20 | 7c 20 44 69 73 70 6c 61 |- pfa+2 || Displa|
|00003050| 79 20 61 20 31 36 2d 62 | 69 74 20 70 61 72 61 6d |y a 16-b|it param|
|00003060| 65 74 65 72 29 20 20 20 | 20 20 0d 20 00 06 00 00 |eter)   |  . ....|
|00003070| 09 00 00 04 00 05 0b 0b | 0b 0b 0b 00 00 01 00 50 |........|.......P|
|00003080| 00 41 20 20 44 55 50 20 | 57 40 20 34 20 2e 44 49 |.A  DUP |W@ 4 .DI|
|00003090| 47 49 54 53 20 33 31 20 | 53 50 41 43 45 2e 54 4f |GITS 31 |SPACE.TO|
|000030a0| 20 44 45 43 49 4d 41 4c | 20 44 55 50 20 3c 57 40 | DECIMAL| DUP <W@|
|000030b0| 20 2e 20 48 45 58 20 20 | 44 55 50 20 57 40 20 20 | . HEX  |DUP W@  |
|000030c0| 20 20 0d 20 00 06 00 00 | 09 00 00 04 00 01 0b 4f |  . ....|.......O|
|000030d0| 00 01 00 38 00 29 20 20 | 4e 46 41 20 3f 44 55 50 |...8.)  |NFA ?DUP|
|000030e0| 20 49 46 20 34 32 20 53 | 50 41 43 45 2e 54 4f 20 | IF 42 S|PACE.TO |
|000030f0| 49 44 2e 20 54 48 45 4e | 20 20 32 2b 20 3b 0d 3b |ID. THEN|  2+ ;.;|
|00003100| 00 06 00 00 09 00 00 04 | 00 01 0b 4f 00 01 00 50 |........|...O...P|
|00003110| 00 41 3a 20 44 49 53 50 | 2e 44 42 4c 20 20 20 20 |.A: DISP|.DBL    |
|00003120| 20 28 20 70 66 61 20 2d | 2d 20 70 66 61 2b 34 20 | ( pfa -|- pfa+4 |
|00003130| 7c 20 44 69 73 70 6c 61 | 79 20 61 20 33 32 2d 62 || Displa|y a 32-b|
|00003140| 69 74 20 70 61 72 61 6d | 65 74 65 72 20 29 20 20 |it param|eter )  |
|00003150| 20 20 0d 18 00 06 00 00 | 09 00 00 04 00 01 0b 4f |  ......|.......O|
|00003160| 00 01 00 46 00 37 20 20 | 44 55 50 20 40 20 44 55 |...F.7  |DUP @ DU|
|00003170| 50 20 38 20 2e 44 49 47 | 49 54 53 20 33 31 20 53 |P 8 .DIG|ITS 31 S|
|00003180| 50 41 43 45 2e 54 4f 20 | 44 45 43 49 4d 41 4c 20 |PACE.TO |DECIMAL |
|00003190| 2e 20 48 45 58 20 34 2b | 20 3b 20 20 0d 20 00 06 |. HEX 4+| ;  . ..|
|000031a0| 00 00 09 00 00 04 00 01 | 0b 4f 00 01 00 50 00 41 |........|.O...P.A|
|000031b0| 3a 20 44 49 53 50 2e 53 | 54 52 49 4e 47 20 20 28 |: DISP.S|TRING  (|
|000031c0| 20 70 66 61 20 2d 2d 20 | 70 66 61 2b 6c 65 6e 20 | pfa -- |pfa+len |
|000031d0| 7c 20 44 69 73 70 6c 61 | 79 20 61 20 73 74 72 69 || Displa|y a stri|
|000031e0| 6e 67 20 70 61 72 61 6d | 65 74 65 72 20 29 20 20 |ng param|eter )  |
|000031f0| 0d 20 00 06 00 00 09 00 | 00 04 00 01 0b 4f 00 01 |. ......|.....O..|
|00003200| 00 50 00 41 20 20 33 34 | 20 45 4d 49 54 20 43 4f |.P.A  34| EMIT CO|
|00003210| 55 4e 54 20 32 44 55 50 | 20 54 59 50 45 20 33 34 |UNT 2DUP| TYPE 34|
|00003220| 20 45 4d 49 54 20 2b 20 | 3d 43 45 4c 4c 53 20 3b | EMIT + |=CELLS ;|
|00003230| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003240| 20 20 20 20 0d 20 00 06 | 00 00 09 00 00 04 00 01 |    . ..|........|
|00003250| 0b 4f 00 01 00 50 00 41 | 3a 20 44 49 53 50 2e 54 |.O...P.A|: DISP.T|
|00003260| 41 52 47 45 54 20 20 28 | 20 62 61 73 65 2e 70 66 |ARGET  (| base.pf|
|00003270| 61 5c 70 66 61 20 2d 2d | 20 62 61 73 65 2e 70 66 |a\pfa --| base.pf|
|00003280| 61 5c 70 66 61 2b 32 20 | 29 20 20 20 20 20 20 20 |a\pfa+2 |)       |
|00003290| 20 20 20 20 20 20 20 20 | 0d 20 00 06 00 00 09 00 |        |. ......|
|000032a0| 00 04 00 01 0b 4f 00 01 | 00 50 00 41 20 20 28 20 |.....O..|.P.A  ( |
|000032b0| 44 69 73 70 6c 61 79 20 | 61 20 62 72 61 6e 63 68 |Display |a branch|
|000032c0| 20 74 61 72 67 65 74 20 | 61 6e 64 20 73 61 76 65 | target |and save|
|000032d0| 20 69 66 20 69 74 27 73 | 20 74 68 65 20 68 69 67 | if it's| the hig|
|000032e0| 68 65 73 74 20 29 20 20 | 20 20 20 20 0d 20 00 06 |hest )  |    . ..|
|000032f0| 00 00 09 00 00 04 00 01 | 0b 4f 00 01 00 50 00 41 |........|.O...P.A|
|00003300| 20 20 44 55 50 20 3c 57 | 40 20 4f 56 45 52 20 2b |  DUP <W|@ OVER +|
|00003310| 20 44 55 50 20 48 49 47 | 48 2e 50 46 41 20 40 20 | DUP HIG|H.PFA @ |
|00003320| 3e 20 49 46 20 48 49 47 | 48 2e 50 46 41 20 21 20 |> IF HIG|H.PFA ! |
|00003330| 45 4c 53 45 20 44 52 4f | 50 20 54 48 45 4e 20 20 |ELSE DRO|P THEN  |
|00003340| 0d 20 00 06 00 00 09 00 | 00 04 00 01 0b 4f 00 01 |. ......|.....O..|
|00003350| 00 50 00 41 20 20 32 44 | 55 50 20 53 57 41 50 20 |.P.A  2D|UP SWAP |
|00003360| 2d 20 4f 56 45 52 20 3c | 57 40 20 2b 20 2e 20 32 |- OVER <|W@ + . 2|
|00003370| 2b 20 3b 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |+ ;     |        |
|00003380| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003390| 20 20 20 20 0d 20 00 06 | 00 00 09 00 00 04 00 01 |    . ..|........|
|000033a0| 0b 4f 00 01 00 50 00 41 | 3a 20 44 49 53 50 2e 54 |.O...P.A|: DISP.T|
|000033b0| 4f 4b 45 4e 20 20 20 28 | 20 70 66 61 20 2d 2d 20 |OKEN   (| pfa -- |
|000033c0| 70 66 61 2b 32 20 7c 20 | 44 69 73 70 6c 61 79 20 |pfa+2 | |Display |
|000033d0| 61 20 74 6f 6b 65 6e 20 | 70 61 72 61 6d 65 74 65 |a token |paramete|
|000033e0| 72 29 20 20 20 20 20 20 | 0d 20 00 06 00 00 09 00 |r)      |. ......|
|000033f0| 00 04 00 01 0b 4f 00 01 | 00 50 00 41 20 20 44 55 |.....O..|.P.A  DU|
|00003400| 50 20 57 40 20 4e 46 41 | 20 3f 44 55 50 20 20 49 |P W@ NFA| ?DUP  I|
|00003410| 46 20 49 44 2e 20 20 45 | 4c 53 45 20 44 55 50 20 |F ID.  E|LSE DUP |
|00003420| 57 40 20 34 20 2e 44 49 | 47 49 54 53 20 20 54 48 |W@ 4 .DI|GITS  TH|
|00003430| 45 4e 20 20 32 2b 20 3b | 20 20 20 20 0d 20 00 06 |EN  2+ ;|    . ..|
|00003440| 00 00 09 00 00 04 00 01 | 0b de 00 01 00 50 00 41 |........|.....P.A|
|00003450| 3a 20 44 49 53 50 2e 41 | 44 44 52 20 20 28 20 70 |: DISP.A|DDR  ( p|
|00003460| 66 61 20 2d 2d 20 70 66 | 61 2b 34 20 7c 20 44 69 |fa -- pf|a+4 | Di|
|00003470| 73 70 6c 61 79 20 61 6e | 20 61 64 64 72 65 73 73 |splay an| address|
|00003480| 20 70 61 72 61 6d 65 74 | 65 72 20 29 20 20 20 20 | paramet|er )    |
|00003490| 0d 20 00 06 00 00 09 00 | 00 04 00 01 0b de 00 01 |. ......|........|
|000034a0| 00 56 00 48 20 20 44 55 | 50 20 40 20 4e 46 41 20 |.V.H  DU|P @ NFA |
|000034b0| 3f 44 55 50 20 20 49 46 | 20 49 44 2e 20 20 45 4c |?DUP  IF| ID.  EL|
|000034c0| 53 45 20 44 55 50 20 40 | 20 4e 45 58 54 2e 50 54 |SE DUP @| NEXT.PT|
|000034d0| 52 20 2b 20 38 20 2e 44 | 49 47 49 54 53 20 54 48 |R + 8 .D|IGITS TH|
|000034e0| 45 4e 20 34 2b 20 3b 20 | 20 20 20 0d 00 06 00 00 |EN 4+ ; |   .....|
|000034f0| 09 00 00 04 00 01 0b de | 00 01 00 50 00 41 3a 20 |........|...P.A: |
|00003500| 53 50 45 43 49 41 4c 2e | 54 4f 4b 45 4e 53 20 28 |SPECIAL.|TOKENS (|
|00003510| 20 62 61 73 65 2e 70 66 | 61 5c 70 66 61 5c 74 6f | base.pf|a\pfa\to|
|00003520| 6b 65 6e 20 2d 2d 20 5b | 62 61 73 65 2e 70 66 61 |ken -- [|base.pfa|
|00003530| 5c 6e 65 78 74 2e 70 66 | 61 5d 20 6f 72 20 0d 20 |\next.pf|a] or . |
|00003540| 00 06 00 00 09 00 00 04 | 00 01 0b cc 00 01 00 50 |........|.......P|
|00003550| 00 41 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.A      |        |
|00003560| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003570| 20 20 20 20 20 20 20 20 | 20 20 20 5b 62 61 73 65 |        |   [base|
|00003580| 2e 70 66 61 5c 6e 65 78 | 74 2e 70 66 61 5c 30 5d |.pfa\nex|t.pfa\0]|
|00003590| 20 29 0d 29 00 06 00 00 | 09 00 00 04 00 01 0b cc | ).)....|........|
|000035a0| 00 01 00 50 00 41 20 20 | 28 20 48 61 6e 64 6c 65 |...P.A  |( Handle|
|000035b0| 20 69 6e 2d 6c 69 6e 65 | 20 70 61 72 61 6d 65 74 | in-line| paramet|
|000035c0| 65 72 73 20 61 6e 64 20 | 74 65 72 6d 69 6e 61 74 |ers and |terminat|
|000035d0| 69 6e 67 20 77 6f 72 64 | 73 20 29 20 20 20 20 20 |ing word|s )     |
|000035e0| 20 20 20 20 20 20 0d 20 | 00 06 00 00 09 00 00 04 |      . |........|
|000035f0| 00 01 0b a8 00 01 00 50 | 00 41 20 20 43 41 53 45 |.......P|.A  CASE|
|00003600| 20 20 54 4f 4b 45 4e 2e | 46 4f 52 20 20 45 58 49 |  TOKEN.|FOR  EXI|
|00003610| 54 20 20 20 20 20 20 20 | 4f 46 20 20 20 20 20 20 |T       |OF      |
|00003620| 20 20 30 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |  0     |        |
|00003630| 20 20 20 20 20 45 4e 44 | 4f 46 0d 46 00 06 00 00 |     END|OF.F....|
|00003640| 09 00 00 04 00 01 0b a8 | 00 01 00 50 00 41 20 20 |........|...P.A  |
|00003650| 20 20 20 20 20 20 54 4f | 4b 45 4e 2e 46 4f 52 20 |      TO|KEN.FOR |
|00003660| 20 28 3b 43 4f 44 45 40 | 29 20 20 20 4f 46 20 20 | (;CODE@|)   OF  |
|00003670| 20 20 20 20 20 20 44 49 | 53 50 2e 54 4f 4b 45 4e |      DI|SP.TOKEN|
|00003680| 20 30 20 20 20 20 20 20 | 20 45 4e 44 4f 46 0d 46 | 0      | ENDOF.F|
|00003690| 00 06 00 00 09 00 00 04 | 00 01 0b a8 00 01 00 50 |........|.......P|
|000036a0| 00 41 20 20 20 20 20 20 | 20 20 54 4f 4b 45 4e 2e |.A      |  TOKEN.|
|000036b0| 46 4f 52 20 20 43 4f 4d | 50 49 4c 45 20 20 20 20 |FOR  COM|PILE    |
|000036c0| 4f 46 20 20 20 20 20 20 | 20 20 44 49 53 50 2e 54 |OF      |  DISP.T|
|000036d0| 4f 4b 45 4e 20 20 20 20 | 20 20 20 20 20 45 4e 44 |OKEN    |     END|
|000036e0| 4f 46 0d 46 00 06 00 00 | 09 00 00 04 00 01 0b a0 |OF.F....|........|
|000036f0| 00 01 00 50 00 41 20 20 | 20 20 20 20 20 20 54 4f |...P.A  |      TO|
|00003700| 4b 45 4e 2e 46 4f 52 20 | 20 30 42 52 41 4e 43 48 |KEN.FOR | 0BRANCH|
|00003710| 20 20 20 20 4f 46 20 20 | 20 20 20 20 20 20 44 49 |    OF  |      DI|
|00003720| 53 50 2e 54 41 52 47 45 | 54 20 20 20 20 20 20 20 |SP.TARGE|T       |
|00003730| 20 45 4e 44 4f 46 0d 46 | 00 06 00 00 09 00 00 04 | ENDOF.F|........|
|00003740| 00 01 0b 7c 00 01 00 50 | 00 41 20 20 20 20 20 20 |...|...P|.A      |
|00003750| 20 20 54 4f 4b 45 4e 2e | 46 4f 52 20 20 42 52 41 |  TOKEN.|FOR  BRA|
|00003760| 4e 43 48 20 20 20 20 20 | 4f 46 20 20 20 20 20 20 |NCH     |OF      |
|00003770| 20 20 44 49 53 50 2e 54 | 41 52 47 45 54 20 20 20 |  DISP.T|ARGET   |
|00003780| 20 20 20 20 20 45 4e 44 | 4f 46 0d 46 00 06 00 00 |     END|OF.F....|
|00003790| 09 00 00 04 00 01 0b 7c | 00 01 00 50 00 41 20 20 |.......||...P.A  |
|000037a0| 20 20 20 20 20 20 54 4f | 4b 45 4e 2e 46 4f 52 20 |      TO|KEN.FOR |
|000037b0| 20 28 4f 46 29 20 20 20 | 20 20 20 20 4f 46 20 20 | (OF)   |    OF  |
|000037c0| 20 20 20 20 20 20 44 49 | 53 50 2e 54 41 52 47 45 |      DI|SP.TARGE|
|000037d0| 54 20 20 20 20 20 20 20 | 20 45 4e 44 4f 46 0d 46 |T       | ENDOF.F|
|000037e0| 00 06 00 00 09 00 00 04 | 00 01 0b 7c 00 01 00 50 |........|...|...P|
|000037f0| 00 41 20 20 20 20 20 20 | 20 20 54 4f 4b 45 4e 2e |.A      |  TOKEN.|
|00003800| 46 4f 52 20 20 28 4c 4f | 4f 50 29 20 20 20 20 20 |FOR  (LO|OP)     |
|00003810| 4f 46 20 20 20 20 20 20 | 20 20 44 49 53 50 2e 54 |OF      |  DISP.T|
|00003820| 41 52 47 45 54 20 20 20 | 20 20 20 20 20 45 4e 44 |ARGET   |     END|
|00003830| 4f 46 0d 00 00 06 00 00 | 09 00 00 04 00 01 0b 74 |OF......|.......t|
|00003840| 00 01 00 50 00 41 20 20 | 20 20 20 20 20 20 54 4f |...P.A  |      TO|
|00003850| 4b 45 4e 2e 46 4f 52 20 | 20 28 2b 4c 4f 4f 50 29 |KEN.FOR | (+LOOP)|
|00003860| 20 20 20 20 4f 46 20 20 | 20 20 20 20 20 20 44 49 |    OF  |      DI|
|00003870| 53 50 2e 54 41 52 47 45 | 54 20 20 20 20 20 20 20 |SP.TARGE|T       |
|00003880| 20 45 4e 44 4f 46 0d 46 | 00 06 00 00 09 00 00 04 | ENDOF.F|........|
|00003890| 00 01 0b 50 00 01 00 50 | 00 41 20 20 20 20 20 20 |...P...P|.A      |
|000038a0| 20 20 54 4f 4b 45 4e 2e | 46 4f 52 20 28 4d 45 4e |  TOKEN.|FOR (MEN|
|000038b0| 55 2e 53 45 4c 45 43 54 | 49 4f 4e 3a 29 20 4f 46 |U.SELECT|ION:) OF|
|000038c0| 20 20 44 49 53 50 2e 54 | 41 52 47 45 54 20 20 20 |  DISP.T|ARGET   |
|000038d0| 20 20 20 20 20 45 4e 44 | 4f 46 0d 46 00 06 00 00 |     END|OF.F....|
|000038e0| 09 00 00 04 00 01 0b 50 | 00 01 00 50 00 41 20 20 |.......P|...P.A  |
|000038f0| 20 20 20 20 20 20 54 4f | 4b 45 4e 2e 46 4f 52 20 |      TO|KEN.FOR |
|00003900| 20 41 4c 49 54 20 20 20 | 20 20 20 20 4f 46 20 20 | ALIT   |    OF  |
|00003910| 20 20 20 20 20 20 44 49 | 53 50 2e 41 44 44 52 20 |      DI|SP.ADDR |
|00003920| 20 20 20 20 20 20 20 20 | 20 45 4e 44 4f 46 0d 46 |        | ENDOF.F|
|00003930| 00 06 00 00 09 00 00 04 | 00 01 0b 50 00 01 00 50 |........|...P...P|
|00003940| 00 41 20 20 20 20 20 20 | 20 20 54 4f 4b 45 4e 2e |.A      |  TOKEN.|
|00003950| 46 4f 52 20 20 57 4c 49 | 54 20 20 20 20 20 20 20 |FOR  WLI|T       |
|00003960| 4f 46 20 20 20 20 20 20 | 20 20 44 49 53 50 2e 57 |OF      |  DISP.W|
|00003970| 4f 52 44 20 20 20 20 20 | 20 20 20 20 20 45 4e 44 |ORD     |     END|
|00003980| 4f 46 0d 46 00 06 00 00 | 09 00 00 04 00 01 0b 48 |OF.F....|.......H|
|00003990| 00 01 00 50 00 41 20 20 | 20 20 20 20 20 20 54 4f |...P.A  |      TO|
|000039a0| 4b 45 4e 2e 46 4f 52 20 | 20 4c 49 54 20 20 20 20 |KEN.FOR | LIT    |
|000039b0| 20 20 20 20 4f 46 20 20 | 20 20 20 20 20 20 44 49 |    OF  |      DI|
|000039c0| 53 50 2e 44 42 4c 20 20 | 20 20 20 20 20 20 20 20 |SP.DBL  |        |
|000039d0| 20 45 4e 44 4f 46 0d 46 | 00 06 00 00 09 00 00 04 | ENDOF.F|........|
|000039e0| 00 01 0b 24 00 01 00 50 | 00 41 20 20 20 20 20 20 |...$...P|.A      |
|000039f0| 20 20 54 4f 4b 45 4e 2e | 46 4f 52 20 20 28 2e 22 |  TOKEN.|FOR  (."|
|00003a00| 29 20 20 20 20 20 20 20 | 4f 46 20 20 20 20 20 20 |)       |OF      |
|00003a10| 20 20 44 49 53 50 2e 53 | 54 52 49 4e 47 20 20 20 |  DISP.S|TRING   |
|00003a20| 20 20 20 20 20 45 4e 44 | 4f 46 0d 46 00 06 00 00 |     END|OF.F....|
|00003a30| 09 00 00 04 00 01 0b 24 | 00 01 00 50 00 41 20 20 |.......$|...P.A  |
|00003a40| 20 20 20 20 20 20 54 4f | 4b 45 4e 2e 46 4f 52 20 |      TO|KEN.FOR |
|00003a50| 20 28 24 4c 49 54 29 20 | 20 20 20 20 4f 46 20 20 | ($LIT) |    OF  |
|00003a60| 20 20 20 20 20 20 44 49 | 53 50 2e 53 54 52 49 4e |      DI|SP.STRIN|
|00003a70| 47 20 20 20 20 20 20 20 | 20 45 4e 44 4f 46 0d 46 |G       | ENDOF.F|
|00003a80| 00 06 00 00 09 00 00 04 | 00 01 0b 24 00 01 00 50 |........|...$...P|
|00003a90| 00 41 20 20 20 20 20 20 | 20 20 54 4f 4b 45 4e 2e |.A      |  TOKEN.|
|00003aa0| 46 4f 52 20 20 28 45 52 | 52 4f 52 22 29 20 20 20 |FOR  (ER|ROR")   |
|00003ab0| 4f 46 20 20 20 20 20 20 | 20 20 44 49 53 50 2e 53 |OF      |  DISP.S|
|00003ac0| 54 52 49 4e 47 20 20 20 | 20 20 20 20 20 45 4e 44 |TRING   |     END|
|00003ad0| 4f 46 0d 46 00 06 00 00 | 09 00 00 04 00 01 0b 84 |OF.F....|........|
|00003ae0| 00 01 00 50 00 41 20 20 | 20 20 20 20 20 20 54 4f |...P.A  |      TO|
|00003af0| 4b 45 4e 2e 46 4f 52 20 | 20 28 41 42 4f 52 54 22 |KEN.FOR | (ABORT"|
|00003b00| 29 20 20 20 4f 46 20 20 | 20 20 20 20 20 20 44 49 |)   OF  |      DI|
|00003b10| 53 50 2e 53 54 52 49 4e | 47 20 20 20 20 20 20 20 |SP.STRIN|G       |
|00003b20| 20 45 4e 44 4f 46 0d 46 | 00 06 00 00 09 00 00 04 | ENDOF.F|........|
|00003b30| 00 01 0b 84 00 01 00 50 | 00 41 20 20 20 20 20 20 |.......P|.A      |
|00003b40| 20 20 54 4f 4b 45 4e 2e | 46 4f 52 20 20 24 41 44 |  TOKEN.|FOR  $AD|
|00003b50| 44 52 20 20 20 20 20 20 | 4f 46 20 20 20 20 20 20 |DR      |OF      |
|00003b60| 20 20 44 49 53 50 2e 53 | 54 52 49 4e 47 20 20 20 |  DISP.S|TRING   |
|00003b70| 20 20 20 20 20 45 4e 44 | 4f 46 0d 46 00 06 00 00 |     END|OF.F....|
|00003b80| 09 00 00 04 00 01 0b 84 | 00 01 00 50 00 41 20 20 |........|...P.A  |
|00003b90| 20 20 20 20 20 20 28 20 | 49 6e 73 65 72 74 20 74 |      ( |Insert t|
|00003ba0| 68 65 20 6f 6e 65 73 20 | 49 27 76 65 20 6d 69 73 |he ones |I've mis|
|00003bb0| 73 65 64 20 68 65 72 65 | 2e 20 29 20 20 20 20 20 |sed here|. )     |
|00003bc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 0d 20 |        |      . |
|00003bd0| 00 06 00 00 09 00 00 04 | 00 01 0b 84 00 01 00 50 |........|.......P|
|00003be0| 00 41 20 20 20 20 20 20 | 20 20 30 20 20 20 20 20 |.A      |  0     |
|00003bf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003c00| 4f 46 20 20 20 20 20 20 | 20 20 32 20 2d 20 44 49 |OF      |  2 - DI|
|00003c10| 53 50 2e 54 4f 4b 45 4e | 20 20 20 20 20 45 4e 44 |SP.TOKEN|     END|
|00003c20| 4f 46 0d 46 00 06 00 00 | 09 00 00 04 00 01 0b 84 |OF.F....|........|
|00003c30| 00 01 00 1c 00 0e 20 20 | 45 4e 44 43 41 53 45 20 |......  |ENDCASE |
|00003c40| 3b 20 20 0d 00 06 00 00 | 09 00 00 04 00 01 0b 74 |;  .....|.......t|
|00003c50| 00 01 00 10 00 01 0d 01 | 00 06 00 00 09 00 00 04 |........|........|
|00003c60| 00 01 0b 74 00 01 00 50 | 00 41 3a 20 44 45 43 4f |...t...P|.A: DECO|
|00003c70| 44 45 2e 54 4f 4b 45 4e | 53 20 20 28 20 70 66 61 |DE.TOKEN|S  ( pfa|
|00003c80| 20 2d 2d 20 20 7c 20 44 | 69 73 70 6c 61 79 20 74 | --  | D|isplay t|
|00003c90| 68 65 20 77 6f 72 64 73 | 20 73 74 61 72 74 69 6e |he words| startin|
|00003ca0| 67 20 61 74 20 70 66 61 | 20 29 0d 29 00 06 00 00 |g at pfa| ).)....|
|00003cb0| 09 00 00 04 00 01 0b 74 | 00 01 00 50 00 41 20 20 |.......t|...P.A  |
|00003cc0| 44 55 50 20 48 49 47 48 | 2e 50 46 41 20 21 20 44 |DUP HIGH|.PFA ! D|
|00003cd0| 55 50 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |UP      |        |
|00003ce0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003cf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 0d 20 |        |      . |
|00003d00| 00 06 00 00 09 00 00 04 | 00 01 0b 74 00 01 00 50 |........|...t...P|
|00003d10| 00 41 20 20 42 45 47 49 | 4e 20 20 20 20 20 20 20 |.A  BEGI|N       |
|00003d20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003d30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003d40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003d50| 20 20 0d 20 00 06 00 00 | 09 00 00 04 00 01 0b 74 |  . ....|.......t|
|00003d60| 00 01 00 70 00 62 20 20 | 20 20 48 45 58 20 32 44 |...p.b  |  HEX 2D|
|00003d70| 55 50 20 53 57 41 50 20 | 2d 20 43 52 20 34 20 2e |UP SWAP |- CR 4 .|
|00003d80| 52 20 32 20 53 50 41 43 | 45 53 20 44 55 50 20 32 |R 2 SPAC|ES DUP 2|
|00003d90| 2b 20 53 57 41 50 20 57 | 40 20 44 55 50 20 4e 46 |+ SWAP W|@ DUP NF|
|00003da0| 41 20 3f 44 55 50 20 20 | 20 20 20 20 20 20 20 20 |A ?DUP  |        |
|00003db0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003dc0| 20 20 20 20 20 20 20 0d | 00 06 00 00 09 00 00 04 |       .|........|
|00003dd0| 00 02 0b 0b 00 01 00 5c | 00 4e 20 20 20 20 20 20 |.......\|.N      |
|00003de0| 49 46 20 20 20 20 49 44 | 2e 20 20 20 20 45 4c 53 |IF    ID|.    ELS|
|00003df0| 45 20 2e 22 20 3f 3f 3f | 22 20 64 72 6f 70 20 30 |E ." ???|" drop 0|
|00003e00| 20 20 54 48 45 4e 20 20 | 20 20 20 20 20 20 20 20 |  THEN  |        |
|00003e10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003e20| 20 20 20 20 20 20 20 0d | 00 06 00 00 09 00 00 04 |       .|........|
|00003e30| 00 01 0b 74 00 01 00 50 | 00 41 20 20 20 20 20 20 |...t...P|.A      |
|00003e40| 32 30 20 53 50 41 43 45 | 2e 54 4f 20 53 50 45 43 |20 SPACE|.TO SPEC|
|00003e50| 49 41 4c 2e 54 4f 4b 45 | 4e 53 20 3f 44 55 50 20 |IAL.TOKE|NS ?DUP |
|00003e60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003e70| 20 20 20 20 20 20 20 20 | 20 20 0d 20 00 06 00 00 |        |  . ....|
|00003e80| 09 00 00 04 00 01 0b 74 | 00 01 00 5c 00 4e 20 20 |.......t|...\.N  |
|00003e90| 20 20 20 20 49 46 20 20 | 20 20 46 41 4c 53 45 20 |    IF  |  FALSE |
|00003ea0| 20 45 4c 53 45 20 20 44 | 55 50 20 48 49 47 48 2e | ELSE  D|UP HIGH.|
|00003eb0| 50 46 41 20 40 20 3e 20 | 54 48 45 4e 20 20 20 20 |PFA @ > |THEN    |
|00003ec0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003ed0| 20 20 20 20 20 20 20 20 | 20 20 20 0d 00 06 00 00 |        |   .....|
|00003ee0| 09 00 00 04 00 01 0b 74 | 00 01 00 50 00 41 20 20 |.......t|...P.A  |
|00003ef0| 55 4e 54 49 4c 20 20 20 | 20 20 20 20 20 20 20 20 |UNTIL   |        |
|00003f00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003f10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003f20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 0d 20 |        |      . |
|00003f30| 00 06 00 00 09 00 00 04 | 00 01 0b 74 00 01 00 50 |........|...t...P|
|00003f40| 00 41 20 20 32 44 52 4f | 50 20 3b 20 20 20 20 20 |.A  2DRO|P ;     |
|00003f50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003f60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003f70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003f80| 20 20 0d 20 00 06 00 00 | 09 00 00 04 00 01 0b 74 |  . ....|.......t|
|00003f90| 00 01 00 10 00 01 0d 01 | 00 06 00 00 09 00 00 04 |........|........|
|00003fa0| 00 01 0b 74 00 01 00 50 | 00 41 3a 20 2e 56 41 4c |...t...P|.A: .VAL|
|00003fb0| 55 45 20 20 28 20 6e 31 | 5c 6e 32 20 2d 2d 20 20 |UE  ( n1|\n2 --  |
|00003fc0| 7c 20 44 69 73 70 6c 61 | 79 20 63 6f 6e 73 74 61 || Displa|y consta|
|00003fd0| 6e 74 73 20 61 6e 64 20 | 55 41 20 76 61 72 69 61 |nts and |UA varia|
|00003fe0| 62 6c 65 73 20 29 20 20 | 20 20 0d 20 00 06 00 00 |bles )  |  . ....|
|00003ff0| 09 00 00 04 00 01 0b 74 | 00 01 00 50 00 41 20 20 |.......t|...P.A  |
|00004000| 48 45 58 20 2e 44 49 47 | 49 54 53 20 2e 22 20 20 |HEX .DIG|ITS ."  |
|00004010| 68 65 78 20 20 22 20 44 | 45 43 49 4d 41 4c 20 2e |hex  " D|ECIMAL .|
|00004020| 20 2e 22 20 64 65 63 69 | 6d 61 6c 20 29 22 20 20 | ." deci|mal )"  |
|00004030| 3b 20 20 20 20 20 20 20 | 20 20 20 20 20 20 0d 20 |;       |      . |
|00004040| 00 06 00 00 09 00 00 04 | 00 01 0b 74 00 01 00 50 |........|...t...P|
|00004050| 00 41 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.A      |        |
|00004060| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004070| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004080| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004090| 20 20 0d 20 00 06 00 00 | 09 00 00 04 00 01 0b 74 |  . ....|.......t|
|000040a0| 00 01 00 50 00 41 3a 20 | 44 45 43 4f 44 45 2e 56 |...P.A: |DECODE.V|
|000040b0| 45 43 54 4f 52 20 20 28 | 20 70 66 61 5c 76 65 63 |ECTOR  (| pfa\vec|
|000040c0| 74 6f 72 20 2d 2d 20 7c | 20 44 69 73 70 6c 61 79 |tor -- || Display|
|000040d0| 20 64 65 66 69 6e 69 74 | 69 6f 6e 20 74 79 70 65 | definit|ion type|
|000040e0| 20 29 20 20 20 20 0d 20 | 00 06 00 00 09 00 00 04 | )    . |........|
|000040f0| 00 01 0b d8 00 01 00 50 | 00 41 20 20 43 41 53 45 |.......P|.A  CASE|
|00004100| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004110| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004120| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004130| 20 20 20 20 20 20 20 20 | 20 20 0d 20 00 06 00 00 |        |  . ....|
|00004140| 09 00 00 04 00 01 0b b4 | 00 01 00 54 00 45 20 20 |........|...T.E  |
|00004150| 20 20 31 31 20 4f 46 20 | 2e 22 20 55 73 65 72 20 |  11 OF |." User |
|00004160| 41 72 65 61 20 76 61 72 | 69 61 62 6c 65 20 28 20 |Area var|iable ( |
|00004170| 4f 66 66 73 65 74 20 3d | 20 22 20 57 40 20 44 55 |Offset =| " W@ DU|
|00004180| 50 20 34 20 20 2e 56 41 | 4c 55 45 20 20 45 4e 44 |P 4  .VA|LUE  END|
|00004190| 4f 46 0d 46 00 06 00 00 | 09 00 00 04 00 01 0b b4 |OF.F....|........|
|000041a0| 00 01 00 50 00 41 20 20 | 20 20 31 32 20 4f 46 20 |...P.A  |  12 OF |
|000041b0| 2e 22 20 31 36 20 62 69 | 74 20 63 6f 6e 73 74 61 |." 16 bi|t consta|
|000041c0| 6e 74 20 28 20 56 61 6c | 75 65 20 3d 20 22 20 3c |nt ( Val|ue = " <|
|000041d0| 57 40 20 44 55 50 20 34 | 20 2e 56 41 4c 55 45 20 |W@ DUP 4| .VALUE |
|000041e0| 20 45 4e 44 4f 46 0d 46 | 00 06 00 00 09 00 00 04 | ENDOF.F|........|
|000041f0| 00 01 0b b4 00 01 00 4e | 00 40 20 20 20 20 31 33 |.......N|.@    13|
|00004200| 20 4f 46 20 2e 22 20 33 | 32 20 62 69 74 20 63 6f | OF ." 3|2 bit co|
|00004210| 6e 73 74 61 6e 74 20 28 | 20 56 61 6c 75 65 20 3d |nstant (| Value =|
|00004220| 20 22 20 40 20 44 55 50 | 20 38 20 2e 56 41 4c 55 | " @ DUP| 8 .VALU|
|00004230| 45 20 20 20 45 4e 44 4f | 46 0d 00 06 00 00 09 00 |E   ENDO|F.......|
|00004240| 00 04 00 01 0b ac 00 01 | 00 50 00 41 20 20 20 20 |........|.P.A    |
|00004250| 31 34 20 4f 46 20 2e 22 | 20 56 61 72 69 61 62 6c |14 OF ."| Variabl|
|00004260| 65 2c 20 61 72 72 61 79 | 2c 20 6f 72 20 73 74 72 |e, array|, or str|
|00004270| 69 6e 67 22 20 44 52 4f | 50 20 20 20 20 20 20 20 |ing" DRO|P       |
|00004280| 20 20 20 20 20 20 20 45 | 4e 44 4f 46 0d 46 00 06 |       E|NDOF.F..|
|00004290| 00 00 09 00 00 04 00 01 | 0b 88 00 01 00 50 00 41 |........|.....P.A|
|000042a0| 20 20 20 20 31 35 20 4f | 46 20 2e 22 20 43 6f 6c |    15 O|F ." Col|
|000042b0| 6f 6e 20 64 65 66 69 6e | 69 74 69 6f 6e 22 20 44 |on defin|ition" D|
|000042c0| 45 43 4f 44 45 2e 54 4f | 4b 45 4e 53 20 20 20 20 |ECODE.TO|KENS    |
|000042d0| 20 20 20 20 20 20 20 20 | 20 20 20 45 4e 44 4f 46 |        |   ENDOF|
|000042e0| 0d 46 00 06 00 00 09 00 | 00 04 00 01 0b 88 00 01 |.F......|........|
|000042f0| 00 50 00 41 20 20 20 20 | 2e 22 20 55 6e 6b 6e 6f |.P.A    |." Unkno|
|00004300| 77 6e 20 63 6f 64 65 20 | 74 79 70 65 20 28 20 56 |wn code |type ( V|
|00004310| 65 63 74 6f 72 20 3d 20 | 22 20 32 20 2e 56 41 4c |ector = |" 2 .VAL|
|00004320| 55 45 20 2e 22 20 29 22 | 20 20 20 20 20 20 20 20 |UE ." )"|        |
|00004330| 20 20 20 20 0d 20 00 06 | 00 00 09 00 00 04 00 01 |    . ..|........|
|00004340| 0b 88 00 01 00 50 00 41 | 20 20 45 4e 44 43 41 53 |.....P.A|  ENDCAS|
|00004350| 45 20 3b 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |E ;     |        |
|00004360| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004370| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004380| 20 20 20 20 20 20 20 20 | 0d 20 00 06 00 00 09 00 |        |. ......|
|00004390| 00 04 00 01 0b 80 00 01 | 00 50 00 42 20 20 20 20 |........|.P.B    |
|000043a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000043b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000043c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000043d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 0d 00 06 |        |     ...|
|000043e0| 00 00 09 00 00 04 00 01 | 0b 75 00 01 00 50 00 41 |........|.u...P.A|
|000043f0| 3a 20 43 48 4b 2e 43 4f | 44 45 2e 54 59 50 45 20 |: CHK.CO|DE.TYPE |
|00004400| 20 28 20 74 6f 6b 65 6e | 20 2d 2d 20 5b 70 66 61 | ( token| -- [pfa|
|00004410| 5c 76 65 63 74 6f 72 5c | 74 72 75 65 5d 20 6f 72 |\vector\|true] or|
|00004420| 20 5b 66 61 6c 73 65 5d | 20 7c 20 20 20 20 20 20 | [false]| |      |
|00004430| 0d 20 00 06 00 00 09 00 | 00 04 00 01 0b 51 00 01 |. ......|.....Q..|
|00004440| 00 50 00 41 20 20 20 52 | 65 74 75 72 6e 73 20 66 |.P.A   R|eturns f|
|00004450| 61 6c 73 65 20 66 6f 72 | 20 6d 61 63 68 69 6e 65 |alse for| machine|
|00004460| 20 63 6f 64 65 20 64 65 | 66 69 6e 69 74 69 6f 6e | code de|finition|
|00004470| 73 2c 20 74 72 75 65 20 | 66 6f 72 20 6f 74 68 65 |s, true |for othe|
|00004480| 72 73 20 29 0d 29 00 06 | 00 00 09 00 00 04 00 01 |rs ).)..|........|
|00004490| 0b 51 00 01 00 3c 00 2d | 20 20 20 54 4f 4b 45 4e |.Q...<.-|   TOKEN|
|000044a0| 3e 41 44 44 52 20 44 55 | 50 20 32 2b 20 53 57 41 |>ADDR DU|P 2+ SWA|
|000044b0| 50 20 57 40 20 44 55 50 | 20 31 36 2f 20 31 32 35 |P W@ DUP| 16/ 125|
|000044c0| 32 20 3d 20 0d 20 00 06 | 00 00 09 00 00 04 00 01 |2 = . ..|........|
|000044d0| 0b 51 00 01 00 4e 00 3f | 20 20 20 49 46 20 31 35 |.Q...N.?|   IF 15|
|000044e0| 20 41 4e 44 20 54 52 55 | 45 20 45 4c 53 45 20 32 | AND TRU|E ELSE 2|
|000044f0| 44 52 4f 50 20 46 41 4c | 53 45 20 54 48 45 4e 20 |DROP FAL|SE THEN |
|00004500| 3b 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;       |        |
|00004510| 20 20 20 20 20 20 0d 20 | 00 06 00 00 09 00 00 04 |      . |........|
|00004520| 00 01 0b 2d 00 01 00 50 | 00 41 20 28 20 4e 6f 74 |...-...P|.A ( Not|
|00004530| 65 3a 20 31 32 35 32 20 | 69 73 20 74 68 65 20 6d |e: 1252 |is the m|
|00004540| 61 63 68 69 6e 65 20 63 | 6f 64 65 20 66 6f 72 20 |achine c|ode for |
|00004550| 61 20 36 38 30 30 30 20 | 54 52 41 50 20 69 6e 73 |a 68000 |TRAP ins|
|00004560| 74 72 75 63 74 69 6f 6e | 20 20 0d 20 00 06 00 00 |truction|  . ....|
|00004570| 09 00 00 04 00 01 0b 2d | 00 01 00 50 00 41 20 20 |.......-|...P.A  |
|00004580| 20 20 20 20 20 20 20 64 | 69 76 69 64 65 64 20 62 |       d|ivided b|
|00004590| 79 20 31 36 2e 20 20 56 | 65 63 74 6f 72 20 69 73 |y 16.  V|ector is|
|000045a0| 20 74 68 65 20 6c 6f 77 | 2d 6f 72 64 65 72 20 66 | the low|-order f|
|000045b0| 6f 75 72 20 62 69 74 73 | 20 6f 66 20 20 20 0d 20 |our bits| of   . |
|000045c0| 00 06 00 00 09 00 00 04 | 00 01 0b 2d 00 01 00 50 |........|...-...P|
|000045d0| 00 41 20 20 20 20 20 20 | 20 20 20 74 68 65 20 54 |.A      |   the T|
|000045e0| 52 41 50 20 69 6e 73 74 | 72 75 63 74 69 6f 6e 2e |RAP inst|ruction.|
|000045f0| 20 29 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | )      |        |
|00004600| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004610| 20 20 0d 20 00 06 00 00 | 09 00 00 04 00 01 0b 09 |  . ....|........|
|00004620| 00 01 00 50 00 41 3a 20 | 73 75 62 6c 65 76 65 6c |...P.A: |sublevel|
|00004630| 20 63 68 6b 2e 63 6f 64 | 65 2e 74 79 70 65 20 69 | chk.cod|e.type i|
|00004640| 66 20 64 72 6f 70 20 64 | 65 63 6f 64 65 2e 74 6f |f drop d|ecode.to|
|00004650| 6b 65 6e 73 20 74 68 65 | 6e 20 3b 20 20 20 20 20 |kens the|n ;     |
|00004660| 20 20 20 20 20 20 0d 20 | 00 06 00 00 09 00 00 04 |      . |........|
|00004670| 00 01 0b 09 00 01 00 4e | 00 40 20 20 20 20 20 20 |.......N|.@      |
|00004680| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004690| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000046a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000046b0| 20 20 20 20 20 20 20 20 | 20 0d 00 06 00 00 09 00 |        | .......|
|000046c0| 00 04 00 01 0b 09 00 01 | 00 50 00 41 3a 20 44 45 |........|.P.A: DE|
|000046d0| 43 4f 4d 50 20 20 28 20 | 2d 2d 20 20 7c 20 44 65 |COMP  ( |--  | De|
|000046e0| 63 6f 6d 70 69 6c 65 20 | 74 68 65 20 6e 65 78 74 |compile |the next|
|000046f0| 20 77 6f 72 64 20 69 6e | 20 74 68 65 20 69 6e 70 | word in| the inp|
|00004700| 75 74 20 73 74 72 65 61 | 6d 20 29 20 0d 20 00 06 |ut strea|m ) . ..|
|00004710| 00 00 09 00 00 04 00 01 | 0b f7 00 01 00 76 00 68 |........|.....v.h|
|00004720| 20 20 47 45 54 2e 4c 49 | 4e 45 2e 48 45 49 47 48 |  GET.LI|NE.HEIGH|
|00004730| 54 20 20 47 45 54 2e 54 | 45 58 54 53 49 5a 45 20 |T  GET.T|EXTSIZE |
|00004740| 20 42 41 53 45 20 40 20 | 20 39 20 54 45 58 54 53 | BASE @ | 9 TEXTS|
|00004750| 49 5a 45 20 20 31 30 20 | 4c 49 4e 45 2e 48 45 49 |IZE  10 |LINE.HEI|
|00004760| 47 48 54 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |GHT     |        |
|00004770| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004780| 20 20 20 20 20 20 20 0d | 00 06 00 00 09 00 00 04 |       .|........|
|00004790| 00 02 0b 0b 00 01 00 50 | 00 41 20 20 2b 46 49 4e |.......P|.A  +FIN|
|000047a0| 44 20 43 52 20 50 4f 43 | 4b 45 54 20 43 4f 55 4e |D CR POC|KET COUN|
|000047b0| 54 20 54 59 50 45 20 2e | 22 20 20 2d 2d 20 22 20 |T TYPE .|"  -- " |
|000047c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000047d0| 20 20 20 20 20 20 20 20 | 20 20 0d 20 00 06 00 00 |        |  . ....|
|000047e0| 09 00 00 04 00 01 0b d3 | 00 01 00 18 00 09 20 20 |........|......  |
|000047f0| 20 20 20 49 46 20 0d 20 | 00 06 00 00 09 00 00 04 |   IF . |........|
|00004800| 00 01 0b d3 00 01 00 50 | 00 41 20 20 20 20 20 20 |.......P|.A      |
|00004810| 20 20 49 46 20 2e 22 20 | 49 4d 4d 45 44 49 41 54 |  IF ." |IMMEDIAT|
|00004820| 45 20 22 20 54 48 45 4e | 20 20 20 20 20 20 20 20 |E " THEN|        |
|00004830| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004840| 20 20 20 20 20 20 20 20 | 20 20 0d 20 00 06 00 00 |        |  . ....|
|00004850| 09 00 00 04 00 01 0b d3 | 00 01 00 6e 00 60 20 20 |........|...n.`  |
|00004860| 20 20 20 20 20 20 43 48 | 4b 2e 43 4f 44 45 2e 54 |      CH|K.CODE.T|
|00004870| 59 50 45 20 49 46 20 44 | 45 43 4f 44 45 2e 56 45 |YPE IF D|ECODE.VE|
|00004880| 43 54 4f 52 20 45 4c 53 | 45 20 2e 22 20 4d 61 63 |CTOR ELS|E ." Mac|
|00004890| 68 69 6e 65 20 63 6f 64 | 65 20 64 65 66 69 6e 69 |hine cod|e defini|
|000048a0| 74 69 6f 6e 22 20 54 48 | 45 4e 20 20 20 20 20 20 |tion" TH|EN      |
|000048b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 0d 00 06 |        |     ...|
|000048c0| 00 00 09 00 00 04 00 02 | 0b 0b 00 01 00 50 00 41 |........|.....P.A|
|000048d0| 20 20 20 20 20 45 4c 53 | 45 20 2e 22 20 4e 6f 74 |     ELS|E ." Not|
|000048e0| 20 69 6e 20 64 69 63 74 | 69 6f 6e 61 72 79 22 20 | in dict|ionary" |
|000048f0| 54 48 45 4e 20 20 20 20 | 20 20 20 20 20 20 20 20 |THEN    |        |
|00004900| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004910| 0d 20 00 06 00 00 09 00 | 00 04 00 01 0b d3 00 01 |. ......|........|
|00004920| 00 50 00 41 20 20 42 41 | 53 45 20 21 20 20 54 45 |.P.A  BA|SE !  TE|
|00004930| 58 54 53 49 5a 45 20 20 | 4c 49 4e 45 2e 48 45 49 |XTSIZE  |LINE.HEI|
|00004940| 47 48 54 20 20 43 52 20 | 3b 20 20 20 20 20 20 20 |GHT  CR |;       |
|00004950| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004960| 20 20 20 20 0d 20 00 06 | 00 00 09 00 00 04 00 01 |    . ..|........|
|00004970| 0b d3 00 01 00 50 00 41 | 20 20 20 20 20 20 20 20 |.....P.A|        |
|00004980| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004990| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000049a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000049b0| 20 20 20 20 20 20 20 20 | 0d 01 00 06 00 00 09 00 |        |........|
|000049c0| 00 04 00 01 0b d3 00 01 | 00 50 00 41 3a 20 23 44 |........|.P.A: #D|
|000049d0| 45 43 4f 4d 50 20 28 20 | 74 6f 6b 65 6e 20 2d 2d |ECOMP ( |token --|
|000049e0| 20 20 7c 20 44 65 63 6f | 6d 70 69 6c 65 20 77 6f |  | Deco|mpile wo|
|000049f0| 72 64 20 77 68 6f 73 65 | 20 74 6f 6b 65 6e 20 69 |rd whose| token i|
|00004a00| 73 20 73 75 70 70 6c 69 | 65 64 20 29 0d 29 00 06 |s suppli|ed ).)..|
|00004a10| 00 00 09 00 00 04 00 01 | 0b d3 00 01 00 50 00 41 |........|.....P.A|
|00004a20| 20 20 42 41 53 45 20 40 | 20 20 47 45 54 2e 4c 49 |  BASE @|  GET.LI|
|00004a30| 4e 45 2e 48 45 49 47 48 | 54 20 20 47 45 54 2e 54 |NE.HEIGH|T  GET.T|
|00004a40| 45 58 54 53 49 5a 45 20 | 20 34 20 50 49 43 4b 20 |EXTSIZE | 4 PICK |
|00004a50| 44 55 50 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |DUP     |        |
|00004a60| 0d 20 00 06 00 00 09 00 | 00 04 00 01 0b d3 00 01 |. ......|........|
|00004a70| 00 50 00 41 20 20 39 20 | 54 45 58 54 53 49 5a 45 |.P.A  9 |TEXTSIZE|
|00004a80| 20 20 31 30 20 4c 49 4e | 45 2e 48 45 49 47 48 54 |  10 LIN|E.HEIGHT|
|00004a90| 20 4e 46 41 20 3f 44 55 | 50 20 43 52 20 20 20 20 | NFA ?DU|P CR    |
|00004aa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004ab0| 20 20 20 20 0d 20 00 06 | 00 00 09 00 00 04 00 01 |    . ..|........|
|00004ac0| 0b d3 00 01 00 50 00 42 | 20 20 20 20 20 49 46 20 |.....P.B|     IF |
|00004ad0| 44 55 50 20 49 44 2e 20 | 20 2e 22 20 2d 2d 20 22 |DUP ID. | ." -- "|
|00004ae0| 20 43 40 20 31 32 38 20 | 41 4e 44 20 20 20 20 20 | C@ 128 |AND     |
|00004af0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004b00| 20 20 20 20 20 20 20 20 | 20 0d 00 06 00 00 09 00 |        | .......|
|00004b10| 00 04 00 01 0b d3 00 01 | 00 50 00 41 20 20 20 20 |........|.P.A    |
|00004b20| 20 20 20 20 49 46 20 2e | 22 20 49 4d 4d 45 44 49 |    IF .|" IMMEDI|
|00004b30| 41 54 45 20 22 20 54 48 | 45 4e 20 20 20 20 20 20 |ATE " TH|EN      |
|00004b40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004b50| 20 20 20 20 20 20 20 20 | 20 20 20 20 0d 20 00 06 |        |    . ..|
|00004b60| 00 00 09 00 00 04 00 01 | 0b d3 00 01 00 70 00 62 |........|.....p.b|
|00004b70| 20 20 20 20 20 20 20 20 | 43 48 4b 2e 43 4f 44 45 |        |CHK.CODE|
|00004b80| 2e 54 59 50 45 20 20 49 | 46 20 44 45 43 4f 44 45 |.TYPE  I|F DECODE|
|00004b90| 2e 56 45 43 54 4f 52 20 | 20 45 4c 53 45 20 2e 22 |.VECTOR | ELSE ."|
|00004ba0| 20 4d 61 63 68 69 6e 65 | 20 63 6f 64 65 20 64 65 | Machine| code de|
|00004bb0| 66 69 6e 69 74 69 6f 6e | 22 20 54 48 45 4e 20 20 |finition|" THEN  |
|00004bc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004bd0| 20 0d 00 06 00 00 09 00 | 00 04 00 02 0b 0b 00 01 | .......|........|
|00004be0| 00 50 00 41 20 20 20 20 | 20 45 4c 53 45 20 48 45 |.P.A    | ELSE HE|
|00004bf0| 58 20 34 20 2e 44 49 47 | 49 54 53 20 2e 22 20 2d |X 4 .DIG|ITS ." -|
|00004c00| 2d 20 4e 6f 74 20 61 20 | 76 61 6c 69 64 20 74 6f |- Not a |valid to|
|00004c10| 6b 65 6e 22 20 54 48 45 | 4e 20 20 20 20 20 20 20 |ken" THE|N       |
|00004c20| 20 20 20 20 0d 20 00 06 | 00 00 09 00 00 04 00 01 |    . ..|........|
|00004c30| 0b d3 00 01 00 50 00 41 | 20 20 54 45 58 54 53 49 |.....P.A|  TEXTSI|
|00004c40| 5a 45 20 20 4c 49 4e 45 | 2e 48 45 49 47 48 54 20 |ZE  LINE|.HEIGHT |
|00004c50| 20 42 41 53 45 20 21 20 | 20 44 52 4f 50 20 20 43 | BASE ! | DROP  C|
|00004c60| 52 20 3b 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |R ;     |        |
|00004c70| 20 20 20 20 20 20 20 20 | 0d 20 00 06 00 00 09 00 |        |. ......|
|00004c80| 00 04 00 01 0b d3 00 01 | 00 0e 00 00 00 06 00 00 |........|........|
|00004c90| 09 00 00 04 00 01 0b d3 | 00 00 00 22 00 0a 01 e0 |........|..."....|
|00004ca0| 00 01 00 00 00 0a 01 68 | 19 52 4a 14 67 02 50 57 |.......h|.RJ.g.PW|
|00004cb0| a8 93 42 40 10 2c 00 02 | 3f 00 a8 83 30 3c 00 01 |..B@.,..|?...0<..|
|00004cc0| 00 10 00 01 0d 01 00 06 | 00 00 0c 00 00 01 00 01 |........|........|
|00004cd0| 10 0e 00 01 00 0e 00 00 | 00 06 00 00 0c 00 00 01 |........|........|
|00004ce0| 00 01 10 00 00 00 00 22 | 00 0a 01 e0 00 01 00 00 |......."|........|
|00004cf0| 00 0a 01 68 19 52 a8 ad | 4a 1f 67 2a 78 01 74 14 |...h.R..|J.g*x.t.|
|00004d00| 20 53 30 04 61 00 01 a6 | 67 1c 00 01 00 10 00 01 | S0.a...|g.......|
|00004d10| 0d 01 00 06 00 00 0c 00 | 00 01 00 01 10 10 00 01 |........|........|
|00004d20| 00 10 00 01 0d 01 00 06 | 00 00 0c 00 00 01 00 01 |........|........|
|00004d30| 10 00 00 01 00 0e 00 00 | 00 06 00 00 0c 00 00 01 |........|........|
|00004d40| 00 01 10 14 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d80| 00 00 01 00 00 00 02 74 | 00 00 01 74 00 00 00 94 |.......t|...t....|
|00004d90| 69 6e 73 65 72 74 73 20 | 61 72 65 20 6d 61 64 65 |inserts |are made|
|00004da0| 20 69 6e 74 6f 20 74 68 | 65 20 61 6d 70 69 63 69 | into th|e ampici|
|00004db0| 03 4a 61 6e 02 00 00 00 | 57 4f 52 44 4d 41 43 41 |.Jan....|WORDMACA|
|00004dc0| 01 00 00 00 00 00 00 00 | 00 01 a9 ee 00 00 00 00 |........|........|
|00004dd0| 00 00 57 4f 52 44 4d 41 | 43 41 01 00 00 00 00 00 |..WORDMA|CA......|
|00004de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004df0| 00 00 98 11 8e 2d 00 00 | 4c c4 00 00 03 08 75 63 |.....-..|L.....uc|
|00004e00| 74 69 6f 6e 20 6f 66 20 | 70 6c 61 73 6d 69 64 20 |tion of |plasmid |
|00004e10| 49 49 20 69 73 20 62 79 | 20 74 68 65 20 6d 65 74 |II is by| the met|
|00004e20| 68 6f 64 20 6f 66 20 64 | 69 72 65 63 74 69 6f 6e |hod of d|irection|
|00004e30| 61 6c 20 63 6c 6f 6e 69 | 6e 67 2e 20 41 6c 74 68 |al cloni|ng. Alth|
|00004e40| 6f 75 67 68 20 73 65 6c | 65 63 74 69 6f 6e 20 6f |ough sel|ection o|
|00004e50| 66 20 73 75 63 63 65 73 | 73 66 75 6c 20 63 6c 6f |f succes|sful clo|
|00004e60| 6e 65 73 20 62 79 20 6c | 6f 73 73 20 6f 66 20 61 |nes by l|oss of a|
|00004e70| 6e 74 69 62 69 6f 74 69 | 63 20 72 65 73 69 73 74 |ntibioti|c resist|
|00004e80| 00 00 00 20 2e 2c 3b 24 | 00 00 d0 00 00 2f ff 60 |... .,;$|...../.`|
|00004e90| 20 41 4d 00 20 50 4d 00 | 3a 00 00 00 00 00 00 00 | AM. PM.|:.......|
|00004ea0| 00 00 00 01 00 00 01 4c | 06 53 75 6e 64 61 79 00 |.......L|.Sunday.|
|00004eb0| 00 00 00 00 00 00 00 00 | 06 4d 6f 6e 64 61 79 00 |........|.Monday.|
|00004ec0| 00 00 00 00 00 00 00 00 | 07 54 75 65 73 64 61 79 |........|.Tuesday|
|00004ed0| 00 00 00 00 00 00 00 00 | 09 57 65 64 6e 65 73 64 |........|.Wednesd|
|00004ee0| 61 79 00 00 00 00 00 00 | 08 54 68 75 72 73 64 61 |ay......|.Thursda|
|00004ef0| 79 00 00 00 00 00 00 00 | 06 46 72 69 64 61 79 00 |y.......|.Friday.|
|00004f00| 00 00 00 00 00 00 00 00 | 08 53 61 74 75 72 64 61 |........|.Saturda|
|00004f10| 79 00 00 00 00 00 00 00 | 07 4a 61 6e 75 61 72 79 |y.......|.January|
|00004f20| 00 00 00 00 00 00 00 00 | 08 46 65 62 72 75 61 72 |........|.Februar|
|00004f30| 79 00 00 00 00 00 00 00 | 05 4d 61 72 63 68 00 00 |y.......|.March..|
|00004f40| 00 00 00 00 00 00 00 00 | 05 41 70 72 69 6c 00 00 |........|.April..|
|00004f50| 00 00 00 00 00 00 00 00 | 03 4d 61 79 00 00 00 00 |........|.May....|
|00004f60| 00 00 00 00 00 00 00 00 | 04 4a 75 6e 65 00 00 00 |........|.June...|
|00004f70| 00 00 00 00 00 00 00 00 | 04 4a 75 6c 79 00 00 00 |........|.July...|
|00004f80| 00 00 00 00 00 00 00 00 | 06 41 75 67 75 73 74 00 |........|.August.|
|00004f90| 00 00 00 00 00 00 00 00 | 09 53 65 70 74 65 6d 62 |........|.Septemb|
|00004fa0| 65 72 00 00 00 00 00 00 | 07 4f 63 74 6f 62 65 72 |er......|.October|
|00004fb0| 00 00 00 00 00 00 00 00 | 08 4e 6f 76 65 6d 62 65 |........|.Novembe|
|00004fc0| 72 00 00 00 00 00 00 00 | 08 44 65 63 65 6d 62 65 |r.......|.Decembe|
|00004fd0| 72 00 00 00 00 00 00 00 | ff ff 00 03 00 00 00 00 |r.......|........|
|00004fe0| 2c 20 00 00 20 00 00 00 | 2c 20 00 00 00 00 00 00 |, .. ...|, ......|
|00004ff0| 00 01 4e 75 00 00 01 00 | 00 00 02 74 00 00 01 74 |..Nu....|...t...t|
|00005000| 00 00 00 94 00 00 4e 1c | 00 98 00 00 00 1c 00 76 |......N.|.......v|
|00005010| 00 01 49 4e 54 4c 00 01 | 00 12 46 4f 4e 54 00 03 |..INTL..|..FONT..|
|00005020| 00 2a 00 01 ff ff 20 00 | 00 24 00 00 cf 00 00 00 |.*.... .|.$......|
|00005030| ff ff 20 00 00 00 00 00 | cf 44 02 09 00 17 80 00 |.. .....|.D......|
|00005040| 00 00 02 09 ff ff 05 0a | 00 0f 80 00 00 00 05 0a |........|........|
|00005050| ff ff 00 0c 00 07 80 00 | 00 00 00 0c ff ff 03 92 |........|........|
|00005060| 00 00 80 00 00 00 03 92 | ff ff 06 41 74 68 65 6e |........|...Athen|
|00005070| 73 07 43 68 69 63 61 67 | 6f 07 53 65 61 74 74 6c |s.Chicag|o.Seattl|
|00005080| 65 06 4d 6f 6e 61 63 6f | 00 00 00 00 00 00 00 00 |e.Monaco|........|
|00005090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000050a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000050b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000050c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000050d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000050e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000050f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+